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PREFACE 


This book contains the descriptions of our software products 
for the ATARI 800 and ATARI 400. 

You can find the descriptions you need by looking through the 
contents of this booklet. 


Los Angeles 
December 1982 
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Printer Interface 

Order-No. 7211 S 19.95 

Screen to Printer Interface for the ATARI 400/800 
Many ATARI users would like to connect a parallel interface to 
the computer. For many people buying an interface is too ex- 
pensive. On the other hand, they may not have the experience to 
build one by their own. Also a lot of software is needed. 

The following instructions make it easy, to hook up an EPSON, 
Centronics or an Okidata printer to the ATARI. 

Only seven of the eight bits of the data link are used for a print- 
out. The eight bit creates a strobe impulse. Also the trigger input 
of port 4 is used for the BUSY-request of the printer. 

There is a formfeed every 66 print lines. So it is necessary to 
adjust the paper before starting the printing. You may need to 
make several trials to find the best position of the paper. After 
each system reset the line counter is set to zero, so you have to 
privide your own formfeed for a correct paper position. 

You can control the length of a line by a POKE 1770, xxx. After 
doing so, press system reset and enter LPRINT. 

The program SCREENPRINT is called by BASIC thru an USR 
(1670) and by the assembler with a GOTO S0687. 

You may install pnp transistors between the game output and the 
printer, as it is shown in this small figure. 


MX80 


ATARI 


PNP-TRANSISTOR 
2N722 or similar 



The next figure shows the connection of the ATARI game outlets 
and the connector for the MX-80 printer. This is a so-called 
Centronics interface and the program can be used with each 
printer and this interface. 


EPSON MX80 - ATARI 400/800 
Interconnection-Scheme 


MX80-Connector 

Pin# 

1 (19) STROBE 

2 (20) DATA 1 
3(21) DATA 2 

4 (22) DATA 3 

5 (23) DATA 4 

6 (24) DATA 5 

7 (25) DATA 6 

8 (26) DATA 7 

9 (27) DATA 8 
1 1 (29) BUSY 


AT A R I -Co n necto rs 
Port3 Port 4 

Pin# Pin# 

4 

1 

2 

3 

4 

1 
2 
3 
8 
6 

8 


(GND) 8 

(19)-(29) = Ground (GND) 


Plugs seen from the rear view. 

Front view of the computer outlets. 1 



PORT 3 PORT 4 


2 




The next figure shows the program. 


******************************* 
* UNIVERSAL PRINT FOR ATARI * 


* * 

* 400/800 VERSION ELCOMP * 

* * 

* # 

* * 

* * 

* * 


* ****************************** 




BASIS 

EPZ 

$58 



F'T 

EF'Z 

$FE 



PST 

EQU 

$600 




ORG 

PST 

0600 

00 


DFB 

0 

0601 

02 


DFB 

o 

jL. 

0602 

0006 


DFW 

PST 

0604 

6E06 


DFW 

INIT 

0606 

A93C 


LDA 

#$3C 

0608 

8D02D3 


STA 

$D302 

060B 

A9EB 


LDA 

#PND 

060D 

8DE702 


STA 

$02E7 

0610 

A906 


LDA 

#PND/256 

0612 

8DE802 


STA 

$02E8 

0615 

A96E 


LDA 

# I N I T 

0617 

850A 


STA 

$0A 

0619 

A906 


LDA 

#INIT/256 

06 IB 

850B 


STA 

$0B 

06 ID 

18 


CLC 


06 IE 

60 


RTS 


06 IF 

: 2B0642 




0622 

063F06 




0625 

: 42063F 




0628 

063F06 

HANDLTAB 

DFW 

DUMMY, 


WRITE-1 , RTS1-1 , WRITE-1 , RTS1-1 , 
RTSl-1 
: 01 


062B 


DUMMY 


DFB 1 



062C: A930 

OPEN 

LDA 

#$30 

062E 

8D03D3 


STA 

$D303 

0631 

A9FF 


LDA 

#$FF 

0633 

8D01D3 


STA 

$D301 

0636 

A934 


LDA 

#$34 

0638 

8D03D3 


STA 

$D3u3 

063B 

A980 


LDA 

#$80 

063D 

8D0.1D3 


STA 

$D301 

0640 

A00 1 

RTS1 

LDY 

#1 

0642 

60 


RTS 


0643 

C99B 

WRITE 

CMP 

#$9B 

0645 

DO ID 


BNE 

PRINT 

0647 

ADEA06 

CARR 

LDA 

LINLEN 

064A 

8DE906 


STA 

LCOUNT 

064D 

CEE806 


DEC 

COUNT 

0650 

1 OOD 


BPL 

NOFF 

0652 

A90C 


LDA 

#12 

0654 

206406 


JSR 

PRINT 

0657 

EEE906 


INC 

LCOUNT 

065A 

A94 1 


LDA 

#65 

065C 

8DE806 


STA 

COUNT 

065F 

EEE906 

NOFF 

INC 

LCOUNT 

0662 

A90D 


LDA 

#13 

0664 

20D106 

PRINT 

JSR 

OUTCHAR 

0667 

CEE906 


DEC 

LCOUNT 

066 A 

FODB 


BEQ 

CARR 

066C: 

D0D2 


BNE 

RTS1 

066E 

A91F 

INIT 

LDA 

#HANDLTAB 

0670: 

8D1B03 


STA 

$03 IB 

0673- 

A906 


LDA 

#HANDLTAB/256 

0675: 

8D1C03 


STA 

$03 1C 

0678: 

A94 1 


LDA 

#65 

067 A: 

8DE806 


STA 

COUNT 

067D: 

ADEA06 


LDA 

LINLEN 

0680: 

8DE906 


STA 

LCOUNT 

0683 

4C2C06 


JMP 

OPEN 

0686: 

68 

BASIC 

PLA 


0687: 

A558 

NORMAL 

LDA 

BASIS 

0689: 

85FE 


STA 

F'T 

068B; 

A559 


LDA 

BASIS+1 

068D: 

85FF 


STA 

PT+1 

068F 

A917 


LDA 

#23 


4 



0691 

8DE606 


STA 

ROW 

0694 

A927 

ROWLOOP 

LDA 

#39 

0696 

8DE706 


STA 

COLUMN 

0699 

A200 


LDX 

#0 

069B 

A1FE 

LOOP 

LDA 

(PT, X ) 

069D 

297F 


AND 

#$7F 

069F 

€960 


CMP 

#$60 

06 A 1 

B002 


BCS 

LOOP 1 

06A3 

6920 


ADC 

#$20 

06A5 

20D 1 06 

LQ0P1 

JSR 

OUTCHAR 

06A8 

E6FE 


INC 

PT 

06AA 

D002 


BNE 

*+4 

06AC 

E6FF 


INC 

PT+i 

06AE 

CEE706 


DEC 

COLUMN 

06B1 

10E8 


BPL 

LOOP 

06B3 

A90D 


LDA 

#13 

06B5 

20D106 


JSR 

OUTCHAR 

06B8 

CEE606 


DEC 

ROW 

06BB 

10D7 


BPL 

ROWLOOF 

06BD 

60 


RTS 


06BE 

484 14E 




06C1 

532057 




06C4: 

41474E 




06C7 

455220 




06CA 

32372E 




06CD- 

372E38 




06D0 

31 AUTHOR ASC 

"HANS WAGNER 

06D1 

AC 1 3 DO 

OUTCHAR 

LDY 

$D013 

06D4 

DOFB 


BNE 

OUTCHAR 

06D6 

A080 


LDY 

#$80 

06D8 

0980 


ORA 

#$80 

06DA 

8D01D3 


STA 

$D301 

06DD 

297F 


AND 

#$7F 

06DF 

8D01D3 


STA 

$D301 

06E2 

8C0 1 D3 


STY 

$D301 

06E5 

60 


RTS 


06E6 

17 

ROW 

DFB 

23 

06E7 

27 

COLUMN 

DFB 

39 

06E8 

41 

COUNT 

DFB 

65 

06E9 

FF 

LCOUNT 

DFB 

255 



06EA: FF 


LINLEN 

PND 


DFB 255 
EQU * 


BASIS 

$58 

F'T 

$FE 

PST 

$0600 

HANDLTA8 

$06 IF 

DUMMY 

$062B 

OPEN 

$062C 

RTS1 

$0640 

WRITE 

$0643 

CARR 

$0647 

NOFF 

$065F 

PRINT 

$0664, 

INIT 

$066E 

BASIC 

$0686 

NORMAL 

$0687 

ROWLOOP 

$0694 

LOOP 

$069B 

LOOP1 

$06A5 

AUTHOR 

$06BE 

OUTCHAR 

$06D1 

ROW 

$06E6 

COLUMN 

$06E7 

COUNT 

$06E8 

LCOUNT 

$06E9 

LINLEN 

$06EA 

PND 

$06EB 


UNUSED 

UNUSED 


UNUSED 


Program description: 


Address 
0600- 061 E 
0610-062B 
062C - 0642 
0643 - 066D 
066 E - 0685 

0686 -06BD 


end of the booting part 
HANTAB for the ATARI OS 
opens the ports for output 
printer driver 

Initialize. Now LPRINT and PRINT 
uses the printer driver 

label BASIC starting address for a call by 
BASIC 

Label NORMAL starting address for a call by 
assembler. 
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06BE -06D0 
06DL - 06E5 

06E6 - 06EA 


Copyright notice 

Subroutine, puls one ASCII character from 

the accumulator to the printer 

values for the various counters 

ROW sets the number of horizontal lines to 

23. 

COLUMN sets the number of characters of 
one line to 39. 

COUNT sets the number of lines between 
two formfeeds to 65 

LCOUNT, LINLEN contains the actual para- 
meters for the number of characters and 
lines. 


Boot-Routine 


PST 

EQU 

$0600 



PND 

EQU 

$0700 



FLEN 

EQU 

PND-PST+ 127/128*128 




ORG 

$6000 

6000 

A210 

BOOTB 

LDX 

#$10 

6002: 

A903 


LDA 

#3 

6004 

9D4203 


STA 

$0342, X 

6007: 

A908 


LDA 

#8 

6009 

9D4A03 


STA 

$034 A, X 

600C 

A980 


LDA 

#$80 

600E 

9D4B03 


STA 

$034 B, X 

6011: 

A94A 


LDA 

#CFILE 

6013 

9D4403 


STA 

$0344, X 

6016: 

A960 


LDA 

#CFILE/256 

6018 

9D4503 


STA 

$0345, X 

60 1 B 

2056E4 


JSR 

$E456 

60 IE 

3029 


BMI 

CERR 

6020 

A90B 


LDA 

#$0B 

6022 

9D4203 


STA 

$0342, X 

6025: 

A900 


LDA 

#PST 

6027 

9D4403 


STA 

$0344, X 

602A 

A906 


LDA 

#PST/256 

602C 

9D4503 


STA 

$0345, X 

602F: 

A900 


LDA 

#FLEN 
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6031 

9D4803 

STA 

*0348, X 

6034 

A901 

LDA 

#FLEN/256 

6036 

9D4903 

STA 

*0349, X 

6039 

2056E4 

JSR 

*E456 

603C 

300B 

Blii 

CERR 

603E 

A90C 

LDA 

#*0C 

6040 

9D4203 

STA 

*0342, X 

6043 

2056E4 

JSR 

*E456 

6046 

3001 

BMI 

CERR 

6048 

00 

BRK 


6049 

00 CERR 

BRK 


604A 

433A CFILE 

ASC 

"C: " 

604 C 

9B 

DFB 

*9B 

PST 

*0600 



PND 

*0700 



FLEN 

*0100 



BOOTS *6000 

UNUSED 

CERR 

*6049 



CFILE *604 A 




The program on cassette comes as a bootable driver and you can 
use it either with the ATARI BASIC ROM or the Editor/As- 
sembler cartridge from ATARI. 

You can print via your interface with LIST "P: 

and use the other PRINT command as described in your manuals 

from ATARI®. 

How to load the cassette: 

Turn off the computer 
Press the start key 
Turn on the computer 
Release the start key 
Press PLAY on the recorder and 
Press RETURN 
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Order-No. 7291 $19.95 

PRINTING VIA THE RS232 INTERFACE 

The file RS232.SYS on your disk allows you to use the ELCOMP 
RS232-interface. The screen will flicker during operation, but 
don' t pay any attention to that. 


The interface only works with 300 Baud. For the connections 
see figure below. 

After the file was loaded you can use the DOS-command B to get 
to a cartridge, if there' s one installed. 

After RESET the file has to be loaded again. 

The following BASIC program: 


70 OPEN #1,8,0, n R:" 

20 FOR X=1 TO 10 
30 PRINT # 7 , n ELCOMP-RS232\X 
40 NEXT X 
50 CLOSE #7 

will generate the following printout: 


ELCOMP-RS232 1 

ELCOMP-RS232 2 

ELCOMP-RS232 3 

ELCOMP-RS232 4 

ELCOMP-RS232 5 

ELCOMP-RS232 6 

E LCOMP-RS232 7 

ELCOMP-RS232 8 

ELCOMP-RS232 9 

ELCOMP-RS232 10 


The program on cassette 
comes as a bootable driver 
and you can use it either 
with the ATARI BASIC 
ROM or the Editor/Assem- 
bler cartridge from ATARI. 
You can print via your 
interface with LIST"R: and 
use the other PRINT com- 
mand as described in. your 
manuals from ATARI®? 

How to load the cassette: 

— Turn off the computer 

— Press the start key 

— Turn on the computer 

— Release the start key 

— Press PLAY on the re- 
corder and 

— Press RETURN 



GAME PORT 3 
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IMPORTANT: 

Do not use the delivered disks for your own files. It will destroy itself! 


ATMASD 

Order-No. 7099 disk version % 89.00 
Order-No. 7999 cartridge vers. S129.00 


ATMASD 

Disk-Version 

Instructions — Working with the MACRO- 
ASSEMBLER 

1. Remove all cartridges 

2. Insert the disk into drive 1 of your ATARI 
. 800/48K RAM 

3. Turn on the console, the system will start to 
boot. After booting, the DOS menue will 
appear. 

4. Type L for binary LOAD and load the file 
named ATMASD.OBJ 

After loading the ATMAS Machinelanguage- 
monitor starts automatically. 

5. Typing K for a Coldstart brings you directly 
into the Editor of the Assembler. 

How to get back to DOS 

a) from the monitor ATMASD-1 : by typing Q 

b) from the Editor: by typing M in the command 
line followed by ESCAPE/ESCAPE 

cl System Reset 

The RUN Assembler Command from the DOS 
menue can be used only when the editor/ 
assembler objectcode is loaded. Run Assembler 
initiates the monitor. Typing E with the object- 
code in memory then causes a warmstart. 


The ATMASD Printer options 

For the convenience of the user:. 

The editor/assembler and the machinelanguage- 
monitor are equipped with printer routines for 


three different devices: 

1. Using a printer in the machinelanguage- 
monitor 

a) YES (Y) after PRINT? gives you three 
options. 

(1) Output to printer via serial port of the 
ATARI RS232 Interface 

(2) Output via the parallel port of the 
ATARI Interface 

(3) Output via the expansion from Elcomp 
Publishing, Inc. 

2. Using a printer in the Editor 

Enter the command line by typing ESCAPE 
and type L ESCAPE/ESCAPE. This command 
lists the source code to the screen only. 
With the CTRL 1 you can stop the listing 
and restart it again. 

L followed by one of the following numbers 
brings the source code to your printer via: 

(0) RS232 Port 1 of the ATARI Interface 

(1) Parallel port of the ATARI Interface 

(2) Port- Interface from Elcomp 

3. Using a printer in the assembler 

An assembly listing on the printer can be 
generated by placing the pseudo opcode 
OUT at the beginning of the source listing. 
Example: 

OUT [ Option ] P u 

Options: LN (Listing and symboltable) 

LNM not expanded Macros 
u ist the Device as mentioned above. 

0 = RS232 

1 = Parallel 

2 = ELCOMP 


This description applies also to 
ATAS-1 32K/48K 

Order No. 7098 
Order No. 7998 

ATAS-1 is identical to ATMASD, 
but ATAS-1 has no macro capability. 
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Editor/Assembler for ATARI 800 
32k or 48k 

Version 1.1. 17.12.81 by Hans-Christoph Wagner 
User Manual 

Editor and Assembler are delivered as a com- 
bined machine language program on cassette or 
diskette. If desired, they can also be run as 
stand-alone programs. For example, the Editor 
could also be effectively used for higher pro- 
gramming languages like PASCAL etc. 

The Editor and Assembler as delivered can 
be run directly on the 48k or 32k - Version. 
ATMAS runs on 48k Disk only. Please specify 
your system when you order. 

The Editor and Assembler programs are stored 
beginning at location 0700 (Cassette Version). 

1. EDITOR 

The Editor partitions the screen display area 
into three parts: 

— 'Status Line' = fist line on top 

— 'Text Window' = mid-area of the screen 

— 'Command line' = dotted line on bottom 

].1. Status Line 

On the Status Line the actual Editor status is 
displayed in the status line on top of the screen. 

P : nnnnn display the number of bytes from 
beginning of text to cursor position. 
T : nnnnn shows the number of bytes still 
free in the textbuffer. 

C : nnnnn displays the number of bytes still 
free in the C-register. 

The last two characters display either C-register 
status or an error message. 

1.2. Text Window 

The Text Window occupies the mid-area of the 
screen and comprises 21 lines. When executing 
an editing operation the result is displayed 
immediately in the Text Window. The cursor 
can be moved backwards and forwards as well 
as linewise up and down (scrolling-up and 
scrolling-down). 

1 .3. Command Line 

The commands for the Command Mode 
operations of the editor have to be written into 
this line (see 1 .4. 2). 

©1982 by Ing. W. Hofacker GmbH 


1 .4. Modes of operation 

The Editor can be operated in two different 
modes: Direct mode and Command mode. 


1.4.1. Direct Mode 

In the Direct Mode, text can be written into the 
textbuffer, i. e. when thext is typed in, it is dis- 
played in the Text Window on screen and 
simultanously stored in the textbuffer. Every 
character is inserted at the actual cursor positon 
on screen. 


When pressing a key longer than one sec., the 
key-function will be repeated about eight 
times/second. This repeat function works as 
long as the cursor remains blinking i. e. only 
within the Text Window an screen. 


For cursor moving, text manipulation etc., a 
number of direct commands are available. They 
are all initiated by pressing the CTRL-Key plus 
the command assigned 'Character key' and 
directly executed. 


There are the following direct commands: 

CTR L— A Cursor one position forward 

- C Causes switching between two 

modes when consecutively opplied: 
lowest possible cursor position 
within Text Window either on 
bottom line or Sifth line from 
bottom 

- D Cursor to text end 

- E Cursor to text beginning 

- F Closing C-register 

— G Reexecute command on Command 
Line 

— H Delete one character back 

- I 'TAB': cursor to next Tab position 
-J Insert content of C-Register at 

actual cursor position 

- K Erase C-Register 

-L 'Formfeed': inserts CTRL-'L' 

-P Jump into ATMONA-1 Monitor. 
When you want to jump back to 
the Editor you have to key in E. 
You then return to the same Editor 
status as before. The cassette 
version automaticly starts in the 
ATMONA-Monitor. Hit the K-key 
for coldstart of the Editor / 
Assembler. 
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The cassette version automatically starts in the 
ATMONA-Monitor. Hit the K-key for coldstart 
of the Editor/ Assembler. 

- Q Cursor one position backward 

- R Open C-Register 

- S Cursor to beginning of next line 

- T Control display; all control charac- 

ters are displayed 'reverse' (switched 
on/off by applying the command 
consecutively) 

- U Delete one character forward 

- V Full Line Mode. The first 76 

characters of a line are shown; a 
maximum of 10 lines are displayed. 

The mode can be switched on/off 
by applying the command conse- 
cutively. 

- W Cursor to begin on same line or 

preceding line. 

— X Deletes current line from beginning 
till cursor position/or whole 
previous line (when cursor is placed 
at first position of the line). 

— V Jump into Assembler 
— Z Insert CTRL-'Z' (Assembler stop 
sign) 

ESCAPE-KEY Opens Command Line when 
entering the Command Mode 
— t Deletes all text from text-begin 
till the actual cursor position. 


1.4.2. Command Mode 

With 'ESCAPE' one enters the Command Mode 
by opening the Command Line. ESCAPE is 
displayed as a $ sign. Commands to be executed 
are written into die Command Line. For the 
numerous commands in this mode, different 
single characters (not shifted!) are assigned. 

The following 'Command Mode' options are 
available: 

@ n : Set Tabulator to value n 

B : Cursor one position back 

D : Delete one character back 

E : Erase C-Register 

F : Cursor one position forward 


G : Insert C-Register at actual cursor 

position 

H < byte > : Insert Hex byte at actual cursor 

position 

I < string > : Insert ASCII string at actual 

cursor position 

J : Jump to beginning of Command 

Line (i. e. reexecute whole 
Command Line) 

K : Erase textbuffer (III) 

L : Lists text on screen . 

LI : Lists text on Screen and printer 

via Microtronics Interface. 

If you want to print via the joystickinterface 

3 + 4, please connect your Centronics printer 

according to the following figure. 

EPSON ATARI 

P0RT3 PORT4 


PIN# PIN# PIN# 


1 

( 19) 

STROBE 


4 

2 

(20) 

DATA 1 

1 


3 

(21) 

DATA 2 

2 


4 

<22) 

DATA 3 

3 


5 

(23.) 

DATA 4 

4 


6 

(24) 

DATA 5 


1 

7 

(25) 

DATA 6 


2 

8 

(26) 

DATA 7 


3 

9 

(27) 

DATA 8 


8 

1 1 

(29) 

BUSY 


6 


(GND) 


8 

8 


R : Read text file from cassette or 

diskette 

ATMAS needs 

R < Device > [ NAME ] ESC (Example: R D1 
: FILE) Reads Source File from Disk 1 with the 
name "FILE". Extensions .SRC will be added 
automatically. If you want to read from cassette 
R C : ESCAPE 

Reads next source file from cassette. 

The text will be inserted at the actual cursor 
position. (Chaining, appending). 
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S < string > : Search for 'string' (ASCII-string) 

in text between actual cursor 
position and text end. 

T : Delete all characters between 

actual cursor position and begin of 
next line. 

U : Jump to user program starting on 

location SA800 hex (SA800 for 
disk and S8000 for cartridge). 

W : Write text from text beginning till 

actual cursor position on cassette 
or diskette refer to Read 
Command 

Syntax legend: 

n : numbers 1 to 9 are allowed; 

default value of program as 
delivered is preset to 9 
byte : Hex byte between 00 and FF 

string : ASCII string ended by 'ESCAPE', 
same as with name 
: Space; obligatory as delimiter 
when a name is used; otherwise 
optional 

< > [ ] = optional 

In the Command Mode there are additionally 
two Direct Mode commands allowed; 

CTRL-X : Erase Command Line and jump 
back to Direct Mode 

CTRL-H : Delete last character on the 
Command Line 

Different commands can be chained in the 
Command Line. They can be separated by 
'ESCAPE' as delimiter is obligatory; in all other 
cases it can be used optionally. If an integer 
number n between 2 and 255 is set before a 
command, it will be executed n times; excepted 
are the commands R, W and Z. When finally 
'ESCAPE' is keyed in twice the commands 
on the Command Line are immediately exe- 
cuted. The Editor prompts the execution by 
displaying a # sign at the latest position on the 
Command Line and switches automatically over 
to Direct Mode. 

For example, assume that the following 
commands have been written to the Command 
Line; (S=display form of 'ESC') 

S2SINTS3DITEST8JS<8) (8) = replaced by 
prompt # after execution 


Starting from the actual cursor position, a search 
for 'I NT' ist started twice. When 'I NT' is 
found the second time three characters in se- 
quence will be deleted and TEST' inserted 
back. This whole operation will be repeated in 
the text which follows over and over till the 
search for 'INT' is exhausted, which is doubly 
indicated by the error message S? (see below) 
at the end of the Status Line. 

In short, one can see in this example that every 
second TNT' string in the text between the 
actual cursor position and the text end will be 
replaced by 'TEST'. 

1 .5 Status and Error Messages 

The Status and Error Messages are displayed 
at the last two positions on the Status Line 
on top. 

Status Messages: 

OK : normal status; C-Register closed 

CR C-Register open 

Error-Messages: 

RW : illegal Read or Write command: 

e.g. illegal device # / no character 
preceding, actual cursor position 
if write, ERROR caused by a 
nonexisting device or file or error 
during write or read 
CO Command line overflow 

E? : illegal or no command on 

Command Line 
wrong or no Hex-argument 
textbuffer overflow (T :0000) 
wrong I/O — device for listing 
/aborted listing / device not 
present 

string search exhausted/string not 
present in text? 

T? illegal Tabulator value 

C? C-Register overflow 

# ? : illegal argument for repetitive 

execution of a command. 

All error messages are skipped by the next 
following Direct Mode command. 

1 .6 C-Register 

The socalled C-Register is in fact an addi- 
tional textbuffer as a mean for text copying 
to any place in the text stored in the main 
textbuffer. To copy text into the C-Register 
one has to open it by the command 'CTRL- 
R'. The C-Register when opened is then 
connected parallel to the main textbuffer 
and editing commands will be executed 


I? 

L? 
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equally in both text areas. Text is copied 
to the C-Register by the editing commands 
which are moving the cursor backwards 
through the text (e.g. CTRL-Q;, CTRL-W; 
CTRL-E, CTRL-H, CTRL-X). At the end of 
the text copying one has to close the C- 
Register by 'CTRL-F'. The text within the 
G-Register is now protected during normal 
editing operations but can be inserted or 
copied as many times as wanted by giving 
the available appropriate editing commands. 

The C-Register is automatically closed after 
execution of Command Line or by a jump 
into the Assembler. 

2. Assembler 

The Assembler can be started directly from 
the Editor by pressing CTRL-Y. The 
Assembler translates (in three passes) the 
source-code text stored in the Editor text- 
buffer starting from textbegin till a CTRL 
'Z' (Assembler stop sign) is encountered. 
If no CTRL'Z' is set in the text, assembling 
is executed till the end of the text. When 
the Assembler enters the second pass an 
action indication is displayed on screen at 
the last position of the line on top. As 
output option you can get from the third 
pass on a list of the assembled text, a label 
list or both together edited on screen. 
These lists can also be output to a printer. 

If during assembling no errors have been en- 
countered, the Assembler stops after completion. 
By pressing any key you can return to the 
Editor. 

If an error is found during assembling, the 
Assembler stops immediately and a self-expla- 
natory error message is displayed on screen. By 
pressing any key you return to the Editor with 
the cursor positioned directly after the 
erroneous text part. These features contribute 
considerably to a quicker correction. 

ATAS ERRORS 

There exist the following error messages: 
'DIVISION BY ZERO' 

'SAME LABEL TWICE' 

TOO MANY LABELS' : LABEL-List overflow 
"WRONG OPCODE' 

'NO HEX' Illegal HEX-Argument 

'ORG -ERROR' 

'LABEL NOT DEFINED' 

'BAD BRANCH' 

'OPCODE UNKNOWN;CHECK ADDRESSING' 
'STRING TOO LONG' : more than 250 char. 


'NO ASCII' no or illegal ASCII- 

Argument as CTRL 
'Z' (=CTRL-Z)or CR 
(CTRL-M or RE- 
TURN) 


48K ATMAS has the following error messages: 
"LINE TOO LONG" (If line more than 127 ch.) 
'TOO MANY LABELS" 

"DIVISION BY ZERO" 

"NO ASCII" 

"UNDEFINED EXPRESSION" 

"NUMBER ERROR" 

"SYNTAX ERROR" 

"NAME UNKNOWN" 

"ORG ERROR" 

"SAME LABEL TWICE" 

"WRONG DELIMITER" 

"MACRO ERROR" 

" IMPOSSIBLE BRANCH" 

"ADDRESSING ERROR" 

"OPCODE DIFFERENT" Opcode is recognized 
different between 
pass 2 and pass 3. For 
instance a lable was 
recognized as an 
absolute label in the 
second pass and then 
in 3 pass it turned 
out as zero page in- 
struction. 

Define the lable more 
carefully! 

Another example: 
Two ORG-Commands 
were in conflict. 

WARNING 

During the list of the assembled code a warning 
can appear: 

"WARNING OPERAND OVERFLOW". This 
happens, if you want to put a two byte expres- 
sion into a one byte location. This must not be 
an error, because it can happen on purpose. If 
no warnings occur at the end the assembler 
prints "NO WARNINGS". 

2.1 Formats and Syntax 

The Assembler interprets all existing Opcodes 
of the 65XX-Assembler language set as well 
as a few additional Pseudo-Opcodes which 
are in fact control commands for the 
Assembler 
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2.1.1 65XX-OPcodes: 


ADC; AND; ASL; BCC; BCS; BEQ; BIT; BMI; BNE; BPL; BRK; 

BVC; CLC; CLD; CLI; CLV; CMP; CPX; CPY; DEC; DEX; DEY; 

EOR; INC; INX; INY; JMP; JSR; LDA; LDX; LDY; LSR; NOP; 

ORA; PHA; PHP; PLA; PLP; ROL; ROR; RTI; RTS; SBC; SEC; 

SED; SEI; STA; STX; STY; TAX; TAY; TSX; TXA; TXS; TYA 

2.2.2 Pseudo-OPcodes: 

EQU : EQUal 

EPZ Equal Page Zero 

ORG ORGanize, fix start address 

DFB . : DEFine Byte, insertion of a byte 
DFW DeFine Word, insertion of a word (= 2 bytes, lower and 

higher byte) 

ASC ASCII-String, insertion of ASCII-string 

OUT ; OUTput 

The new ATMAS 48K has the following Pseudo- and the following 6502 Opcodes: GOTO = JMP 
opcodes: (both opcodes are existing) 

MACRO, MEND JSR can be omitted. 

2.2.3 Format of Addressing-Modes: 

Impl. Accu : [Label L^OPC [w;(Com> ] (RETURN > 

Immediate : [ Label ],_,OPCw# <Expr> I... .(Com) ] ( Return > 

Abs, Zp, Rel : [ Label ]wOPC^( Expr) [v_X Com > ] ( Return > 

AbsX;ZpX : [ Label ]u/OPCi_,( Expr), X [uj< Com > ] < Return ) 

AbsY;ZpY : [ Label l^OPC^ Expr >, YL^fCom > ] < Return > 

IndX. : [ Label Il^OPCwK Expr.), X) [uv(Com> ] ( Return > 

IndY. : [ Label ]^OPC^« Expr) ), Y [,_,< Com > ] < Return > 

Ind. : [ Label IuOPCljU Expr > ) [lj< Com > ] < Return > 

2.2.4 Format of Pseudo-OPcodes: 

EQU : (Label EQU u< Expr > [v_j< Com >]< Return > 

EPZ (Label Xv EPZ i_XExpr> [ Com ) ) (Return) 

ORG : (LabelkORG^PL) [,(PP> ] [ JlCom) ] (Return) 

DFB : [ Label )^DFBw( Expr >[,( Expr) ]" [^(Com >]( Return > 

DFW : [ Label ]uDFWj(Expr> [,( Expr) ]''[,_,( Com ) 1 (Return) 

ATMAS 

ASC : [ LABEL ]wASCi_/< DELIM > [STRING] < DELIM > [ , < DELIM > 

[ STRING ] ( DELIM > ] "L/( COMM > ] ( RETURN) 

OUT : [ LABEL ]w OUT^ [ L ] [ N ] [ M ] [ P] w ( COMM >1 ( RETURN > 

[ m ] = MACROS not expanded 

ATAS ASC: [ LABEL ]lvASCl_/( DELIM > [ STRING ] ( DELIM > [u COMM ] ( RETURN > 

OUT : [ LABEL ]i_, OUT^, [L ] [ N ] [ P ] [l_/COMM ] ( RETURN > 

2.2.5 Syntax legend Textlines beginning with * or CTRL-L are 

Expressions within ( > are mandatory. Ex- skipped by the Assembler as comment. An 

pressions within [ ] are optional. A " after ] empty line.i. e. a line containing only 

indicates that the whole expression within ( RETURN > is also skipped. 

[ ] can be repeated as many times as desired. Label: Label consisting of at least one and 

A ' — t indicates that at least one Space or one up to a maximum of eight letters 

CTRL-1 must be inserted. OPC indicates a legal or digits where the first character 

OPcode. must always be a letter. All eight 
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characters of a label are significant. 

String: String of ASCil-characters; their 

values will be inserted here according 
to their position within the string. 
A string may contain a maximum of 
250 characters and must be opened 
and closed by the same delimiter 
< DELIM) . 

DELIM: All non-alphanumeric characters 

The use of \ as delimiter increases 
automatically the value of the last 
string character by S80 or 128. 

COM: Comment may be placed here. 

REturn: Carriage return (CR); effectuated 
by RETURN-key orCTRL-M. 

Expr: for AT AS — Expr stands for an 

expression of which its arithmeti- 
cally calculated value will be used as 
argument for the OPcode. Expr can 
be a decimal number, a Hexnumber 
(as 815, S F62A etc.), a label, an 
ASCI I -character (as 'A, 'B, '#etc.), 
or in combination with the arith- 
metic operators + — * / an Expr 
containing sums, products or 
quotients of Expr's. The arithmetic 
value range is -65535 to +65535. 
ASCI I -characters imply immediate 
addressing and will be used as seven 
bit value' argument. E. g., LDA 'X 
is identical to LDA # S 58 or LDA 
# 88. An asterisk * as term in an 
Expr will be interpreted as the value 
of the actual program pointer, which 
makes relative indexing very easy. 


For ATMAS use brackets for priority 

PL, PP: PL = logical start address of the 
assembled program 
PP = physical start address, which 
means that the assembled program 
has been only dumped to a memory 
range with PP as start location. 

This feature enables the user to 
assemble a program for a memory 
range which, for instance, is at the 
time of assembling occupied by 
another program and then dump 
it on a memory area starting at PP. 
Later he can transfer the program 
by a simple block transfer to its 
final destination. 

L : L = Assembler output listing 
N : N = Label listing 
P : Printer option 


Short description of the "Normal Demo" 
program 

First the labels are defined, EXW EPZ S F0.1 
means that memory location FO and FI are 
defined as the hexbuffer. The number 1 (F0.1) 
is a comment and no definition! It is not re- 
cognized as a pseudo op during assembly. 

After that we define the operating system 
routines, we use in the program. To show 
you that we can use EPZ or EQU for definitions 
we wrote SCROUT EQU SF6A4. 

(EQU = EPZ) 

CLS CRN ) 

EOL l defining AT ASCI or ASCII values 

CR I 

ORG sets the beginning of the program to A800 
hex. With the command U you can start the 
program for texting from the editor. Physical 
and logical addresses are the same. 

In location A80C we can use the word 
MESSAGE instead of JSR MESSAGE. The 
following ASC Pseudo-OPcode followed by 
a string between delimiters puts this string into 
memory. (A80F— A817). The assembler adds 
128 to the last character of the string, because 
the delimiter (bad slash) performs this function. 
Message prints the string to the screen. After 
performing this subroutine the program will be 
continued at A81 8 hex. Because of stack mani- 
pulation the locations A80F to A817 are 
skipped by the CPU. This combination is con- 
venient for a powerful MACRO, if you work 
with programs containing a lot of text. 

To perform the same operation with a MACRO, 
we define the MACRO with the name PRINT 
(see MACRO DEMO) with formale parameter 
STRING. 

PRINT MACRO STRING 

MESSAGE Definition 

ASC STRING of the 

MEND MACRO 

At address A83D hex (see MACRO DEMO), 
for instance, we can find a macrocall wit the 
actual parameter \ HEXADECIMAL: S \ . 
The assembler replaces now in the macro defi- 
nition the formal parameter STRING by the 
actual parameter \ HEXADECIMAL: S\ . Thus 
every formale parameter now can be replaced 
by the actual parameter by the MACRO. A 
MACRO can have more than one formal para- 
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meter, which are separated by a komma. 
During a macrocall the formal parameter has 
been replaced by the actual parameter in the 
same order. A macro can have local labels. The 
look alike normal global labels, however, must 
be followed by a @. During every macro call 
this @ will be replaced by a different four digit 
decimal number. This gives you the option for 


nested MACROS as long as the hardware stack. 

The following program shall demonstrate the 
use of a macro assembler. The savings are not 
extremely high, because most of the macros are 
only used once in the text. 

For more information and tutorials about 
macros refer to literature on the subject. 


*************** *********************** 


* * 

* MACRO DEMO * 

* * 

* FOR ATMASD 1 * 

* * 

* ATARI BOO 48K * 

* * 


************************************** 


* MACRO-DEFINITIONS : 


INPUT MACRO STOPCHAR 
BETLOOPS GETCHAR 

CMP #STOPCHAR 
PHP 

ROR LASTDIG 
PLP 

BEQ OKS 
CMP ’0 

BCC GETLOOPS 
CMP ’9+1 
BCS GETLOOPS 
OKS SCROUT 

MEND 


MACRO WITH PARAM. 

IF STOPCHARTHEN SET LASTDIG 

PRINT STOPCHAR 

IF ASCII <0 THEN WAIT 

IF ASCII >9 THEN WAIT 
PRINT ON SCREEN 
MACROEND 


OUTPUT 


MACRO EXPRESSION 
LDA EXPRESS I ON+1 
BYTEOUT 

LDA EXPRESSION 

BYTEOUT 

MEND 


LOAD HIGHBYTE 
PRINT IT 
LOAD LOWBYTE 
PRINT IT 


PRINT MACRO STRING 
MESSAGE 
ASC STRING 
MEND 


JUMP SUBROUTINE 
DEF. STRING 


INIT MACRO LOCATION, FLAG, LINE 

LDA #0 

ST A LOCATION CLEAR LOCATION 

ST A LOCATION+1 

STA FLAG CLEAR FLAG 

MESSAGE 

DFB CLSCRN+12S CLEAR SCREEN 

PRINT LINE 

MEND 


INC2 MACRO PT 

INC PT 


INCREMENT LOWBYTE 
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BNE *+4 
INC PT+1 
MEND 


NO OVERFLOW 

OTHERWISE ALSO HIGHBYTE 


* DEFINE LABELS 


EXW 

EPZ 

*FO. I 

HEXEXPRESSIONBUFFER 

AUX 

EPZ 

*F2. 3 

AUX. POINTER FOR PRINTROUTINE 

LASTDIG 

EPZ 

*F4 

FLAG TO SHOW END OF INPUT 

SCROUT 

EQU 

*F6A4 

SCREENOUT 

GETCHAR 

EQU 

*F6DD 

WAIT FOR INPUT ASCII (KEY) = 

CLSCRN 

EQU 

*7D 

>ACCU 

EOL 

EQU 

*9B 


CR 

EQU 

*OD 





ORG *A800 




* 

MAINLOOP 



A800: 

A90085+ST ART 

INIT EXW, LASTDIG, 

\ DECIMAL i\ INITIALISE 

PAR. , 

A803: 

F085F1+ 


PRINT STRING 

A806: 

85F420+ 




A809 : 

72A8FD+ 




A80Cs 

2072AB+ 




A80F: 

444543+ 




A812r 

494D41+ 




A815: 

4C20BA+ 




A818: 

20DDF6+ INLOOP 

INPUT EOL 

KEY INPUT 


A81B: 

C99B08+ 




A81E: 

66F428+ 




A821 : 

F008C9+ 




A824 s 

3090F1+ 




A827 : 

C93ABO+ 




A82A: 

ED20A4+ 




A82D: 

F6 + 




AB2E : 

24F4 

BIT LASTDIG 



A830: 

3006 

BMI FINISH 

IF RETURN THEN FINISH 


A832S 

205FA8 

DECHEX 

NEXT DECIMAL POSITION 

TO EXW 

A835: 

4C1SA8 

JMP INLOOP 

ALWAYS TAKEN 


A838: 

2072A8 FINISH 

MESSAGE 



A83B: 

0D8D 

DFB CR, CR+128 



A83D: 

2072A8+ 

PRINT \ HEXADECIMAL : *\ 


A840: 

484558+ 




A843s 

414445+ 




A846: 

43494D+ 




A849: 

414C20+ 




A84C: 

3A20A4+ 




A84F : 

ASF 120+ 

OUTPUT EXW 



A852: 

9AA8A5+ 

i 



AB55: 

F0209A+ 




A85B: 

A8 + 




A859: 

20DDF6 

GETCHAR 

WAIT FOR ANY KEY 


AB5C: 

4C00A8 

GOTO START 

STARTS AGAIN 



* 

SUBROUTINES! 



A85F : 

290F DECHEX 

AND #-/.OOOOUU 

MAKE ASCII => BIN. 


A861 : 

A211 

LDX #17 

16 BIT HEXADECIMAL 
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A863: 

D005 


BNE DEC3 A. T. 

ALWAYS TAKEN 

A865: 

9002 

DEC2 

BCC *+4 

IF BIT-0 ONLY ROTATE 

A867 : 

6909 


ADC #9 

OTHERWISE ADD 9+CARRY=10 

A869: 

4A 


LSR ; 

ROTATE ACCU THROUGH CARRY IN EXW 

A86A: 

66F1 

DEC3 

ROR EXW+1 


AB6C: 

66F0 


ROR EXW 

BIT => CARRY 

A86E : 

CA 


DEX 

ONLY X-l BITS 

A86F: 

D0F4 


BNE DEC2 

IF XOO THEN ROTATE 

A87 1 : 

60 


RTS 


AB72: 

68 

MESSAGE 

PLA 

( STACK >=>AUX 

A873: 

85F2 


STA AUX 


A875: 

68 


PLA 


A876: 

85F3 


STA AUX + 1 


A878: 

A200 


LDX #0 


A87A: 

E6F2D0+MESL00P 

INC2 AUX 


A87D: 

02E6F3+ 



A880: 

A1F2 


LDA (AUX , X) 

NEXT PRINT-CHARACTER 

A882: 

297F 


AND #7.01111111 

BIT 7s«0 

A884 : 

C90D 


CMP #CR 


AB86: 

D002 


BNE MESS2 

IF CHAR=CR THEN CHAR=EOL :ATASCII 

A888: 

A99B 


LDA #EOL 

RETURN 

A88A: 

20A4F6 

MESS2 

SCROUT 

PRINT CHAR 

A88D: 

A200 


LDX #0 


A88F : 

A1F2 


LDA (AUX , X ) 


A891 : 
ASSED 

10E7 


BPL MESLOOP 

IF ASCII (CHAR) >-128 THEN MESLOOP 

sTEXT P 

A893: 

A5F3 


LDA AUX+1 

AUX => (STACK) 

A895: 

48 


PHA 


A896: 

A5F2 


LDA AUX 


A898: 

48 


PHA 


A899 : 

60 


RTS 

JUMP TO NEXT OPCODE 

A89A: 

48 

BYTEOUT 

PHA 

ACCU => (STACK) 

A89B: 

4A 


LSR ; 

ACCU s= HIGHNIPPLE (ACCU) 

A89C; 

4A 


LSR 


AB9D: 

4A 


LSR 


A89E: 

4A 


LSR 


A89F : 

20A5A8 


HEXOUT 

PRINT HEXADECIMAL 

A8A2: 

68 


PLA 

(STACK) => ACCU 

A8A3: 

290F 


AND #7.00001111 

ACCU s= LOWNIPPLE (ACCU) 

A8A5: 

C90A 

HEXOUT 

CMP #9+1 


A8A7 : 
TERS 

B004 


BCS ALFA 

IF NIPPLE >9 THEN ALFA s 10-15 ARE 

CHARAC 

A8A9: 

0930 


ORA ’0 

ACCU i= ASCI I (ACCU) MAKE ASCII 

A8AB : 

D003 


BNE HEX0UT2 A. T 

NUMBERS 

ABAD: 

18 

ALFA 

CLC 


A8AE: 

A-F 

6937 


ADC ” A- 10 

ACCU s- ASCII (ACCU) MAKE ASCII 
CHARACTERS 

ABBO: 

4CA4F6 

HEX0UT2 

GOTO SCROUT 

RTS VIA SCROUTROUTINE 


PHYSICAL ENDADDRESS s * A8B3 
*** NO WARNINGS 


INPUT 

MACRO 

OUTPUT 

MACRO 

PRINT 

MACRO 

INIT 

MACRO 

INC2 

MACRO 

EXW 

*F0 

AUX 

*F2 

LASTDIG 

*F4 

SCROUT 

♦F6A4 

GETCHAR 

*F6DD 

CLSCRN 

*7D 

EOL 

*9B 

CR 

♦CD 

START 

♦A800 
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INLOOP 

0K0003 

DECHEX 

DEC3 

MESLOOP 

BYTEOUT 

ALFA 


A0OO: A900 
A802: B5F0 
AB04s 85F1 
A806s 83F4 
A80S: 2072 AS 
ABOBs FD 
ABOCs 2072A8 
ABOF : 444543 
A812s 494D41 
A815s 4C20BA 
A 8 I 81 20DDF6 
A 8 iBi C99B 
A81D1 08 
A81E: 66F4 
A820: 2B 
AB21: FOOB 
A823: C930 
AB25r 90F1 
A827: C93A 
AB29: BOED 
AB2B: 20A4F6 
AB2Es 24F4 
AB30: 3006 
AB32: 205FA8 
A835: 4C18A8 
AB3B: 2072AB 


«A818 

GETL00P0003 

*A818 

•A82B 

FINISH 

SA83B 

*AB5F 

DEC2 

*AB63 

*A 86 A 

MESSAGE 

*AB72 

*A87A 

MESS2 

*A 88 A 

*A89A 

HEXOUT 

•A8A5 

*ABAD 

HEX0UT2 

SA8B0 


M******:M********«****M*****t ******* 
• * 

* NORMAL DEMO * 

* * 

* FOR ATMASD 1 * 

^ * 

* ATARI BOO 48K » 

* * 
*****tt***t*tt*t*tttt*t******t*ttt*t*t 

* DEFINE LABELS 


EXW 

AUX 

LASTDIG 

EPZ *F0. 1 

EPZ »F2.3 

EPZ *F4 

HEXEXPRESS I ONBUFFER 

AUX. POINTER FOR PR INTROUT I NE 
FLAG TO SHOW END OF INPUT 

SCROUT 

GETCHAR 

EQU *F6A4 

EQU *F 6 DD 

SCREENOUT 

WAIT FOR INPUT ASCI I <KEY) *= 

CLSCRN 

EQU *7D 

>ACCU 

EOL 

EQU $9B 


CR 

EQU *0D 



ORG *A800 


* 

MA INLOOP 


START 

LDA #0 

STA EXW 

STA EXW+1 

CLEAR EXW 


STA LASTDIG 
MESSAGE 

CLEAR FLAG 


DFB CLSCRN+128 

CLEAR SCREEN 


MESSAGE 

ASC \DECIMAL :\ 


GETLOOP GETCHAR 
CMP #EOL 
PHP 

ROR LASTDIG 
PLP 
BEQ OK 
CMP '0 
BCC GETLOOP 
CMP r ’9+1 
BCS GETLOOP 
OK SCROUT 

BIT LASTDIG 
BMI FINISH 
DECHEX 
JMP GETLOOP 
FINISH MESSAGE 


IF EOL THEN SET LASTDIG 
PRINT EOL 

IF ASCII <0 THEN WAIT 

IF ASCII >9 THEN WAIT 
PRINT ON SCREEN 

IF RETURN THEN FINISH 
NEXT DECIMAL POSITION TO EXW 
ALWAYS TAKEN 
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A83B: 

0D8D 


DFB CR,CR+12B 



A83D: 

2072A8 


MESSAGE 



A840: 

484558 


ASC \HEXADECIMAL ! *\ 


A843s 

414445 





A846: 

43494D 





A849: 

414C20 





A84C: 

3A20A4 





A84F : 

ASF 1 


LDA EXW+1 

LOAD HIGHEYTE 


AB51 : 

209AA8 


BYTEOUT 

PRINT IT 


A854 : 

A5F0 


LDA EXW 

LOAD LOWBYTE 


AS56: 

209AA8 


BYTEOUT 

PRINT IT 


A859: 

20DDF6 


GETCHAR 

WAIT FOR ANY KEY 


A85C: 

4C00A8 


GOTO START 

STARTS AGAIN 




* 

SUBROUTINES: 



A85F: 

290F 

DECHEX 

AND #7.00001111 

MAKE ASCII => BIN. 


A861: 

A211 


LDX #17 

16 BIT HEXADECIMAL 


A863: 

D005 


BNE DEC3 A. T. 

ALWAYS TAKEN 


A865: 

9002 

DEC2 

BCC *+4 

IF BIT=0 ONLY ROTATE 


A867 : 

6909 


ADC #9 

OTHERWISE ADD 9+CARRY=10 


AB69: 

4A 


LSR ; 

ROTATE ACCU THROUGH CARRY 

IN EXW 

A86A: 

66F 1 

DEC3 

ROR EXW+1 



A86C e 

66F0 


ROR EXW 

BIT => CARRY 


A86Es 

CA 


DEX 

ONLY X-l BITS 


A86F: 

D0F4 


BNE DEC2 

IF XOO THEN ROTATE 


A87 1 : 

60 


RTS 



A872: 

68 

MESSAGE 

PLA 

(STACK) =>AUX 


A873: 

85F2 


STA AUX 



A875: 

68 


PLA 



A876: 

B5F3 


STA AUX+1 



A878: 

A200 


LDX #0 



A87A: 

E6F2 

MESL00P 

INC AUX 

INCREMENT LOWBYTE 


AB7C : 

D002 


BNE *+4 

NO OVERFLOW 


A87E: 

E6F3 


INC AUX+1 

OTHERWISE ALSO HIGHBYTE 


A880: 

A1F2 


LDA < AUX , X > 

NEXT PRINT-CHARACTER 


A882: 

297F 


AND #7.01111111 

BIT 7:=0 


A884: 

C90D 


CMP #CR 



A886: 

D002 


BNE MESS2 

IF CHAR=CR THEN CHAR-EOL 

s AT ASC I I 

A888: 

A99B 


LDA #EOL 


RETURN 

A88A: 

20A4F6 

MESS2 

SCROUT 

PRINT CHAR 


A88Ds 

A200 


LDX #0 



A88F: 

A1F2 


LDA (AUX , X > 



A891 : 

10E7 


BPL MESLOOP 

IF ASCII (CHAR) >=128 THEN 

MESLOOP 

ASSED 





sTEXT P 

A893: 

A5F3 


LDA AUX+1 

AUX => (STACK) 


A895: 

48 


PHA 



A896: 

A5F2 


LDA. AUX 



A898: 

48 


PHA 



A899: 

60 


RTS 

JUMP TO NEXT OPCODE 


A89A: 

48 

BYTEOUT 

PHA 

ACCU => (STACK) 


A89B: 

4A 


LSR ; 

ACCU s= HIGHNIPPLE (ACCU) 


A89C: 

4A 


LSR 



A89D: 

4A 


LSR 



A89E: 

4A 


LSR 



A89F : 

20A5A8 


HEXOUT 

PRINT HEXADECIMAL 


A8A2: 

68 


PLA 

(STACK) => ACCU 


A8A3: 

290F 


AND #7.00001111 

ACCU s= LOWNIPPLE (ACCU) 


A8A5: 

C90A 

HEXOUT 

CMP #9+1 
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A8A7 : 
TERS 

B004 


BCS 

ALFA 

A8A9: 

0930 


ORA 

'O 

A8AB: 

D003 


BNE 

HEX0UT2 A. T 

A8AD: 

18 

ALFA 

CLC 


A8AE: 

A-F 

6937 


ADC 

? A-10 

A8B0: 

4CA4F6 

HEX0UT2 

GOTO 

i SCROUT 


IF NIPPLE >9 THEN ALFA ! 10-15 
ARE CHARAC 

ACCU != ASCII (ACCU) MAKE ASCII 
NUMBERS 

ACCU := ASCI I (ACCU) MAKE ASCII 
CHARACTERS 

RTS VIA SCR0UTR0UTINE 


PHYSICAL ENDADDRESS: *A8B3 


*** NO WARNINGS 


EXW 

*F0 

LASTDIG 

*F4 

GETCHAR 

$F6DD 

EOL 

*9B 

START 

*A800 

DK 

*A82B 

DECHEX 

*A85F 

DEC3 

*A86A 

MESLOOP 

*A87A 

BYTEOUT 

*A89A 

ALFA 

*A8AD 


AUX 

*F2 

SCROUT 

*F6A4 

CLSCRN 

$7D 

CR 

*0D 

GETLOOP 

$AB18 

FINISH 

*A838 

DEC2 

♦A865 

MESSAGE 

*A872 

MESS2 

♦A88A 

HEX OUT 

*A8A5 

HEX OUT 2 

*A8B0 
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Introduction to the use of 
MACROS 


Introduction to the use of MACROs 
The purpose of macros as well as of subroutines 
is to replace often, needed routines by a simple 
call. 

Although macros and subroutines are similar 
there are differences which you have know in 
order to be able to use them the best way. The 
next figure shows the difference: 


subroutine macro 





macro 



| macro 


Subroutines as well as macros are written only 
once by the programmer but the assembler 
writes subroutines only once while inserting the 
whole macro every time they are called. By that 
technique the stackoperations necessary with 
the use of subroutines are sowed. 

In general we can say: 

macros need more memory but they are faster 
subroutines are easier to use. 

At the beginning of the main program where 
the macro is defined, we use formal parameters. 
These formal parameters are used instead of the 
actual parameters handled over to the macro 
every time we call ist. Parameters used only 
within the macro are named local parameters. 


Example: 

macro-definition: INC2 MACRO PT 
INC PT 
BNE *+4 
INC PT+1 
MEND 

Name of the macro ist INC2, name of the 
formal parameter ist PT. 

Call of macro. INC2 AUX 

Name of the actual parameter is AUX. 

Another example shows a blocktransfer-routine. 
This routine moves a block of bytes between 
STARTP and ENDP to a location beginning at 
INTOP. 


MOV 

LDA 

STARTP 

CMP 

END 


i- BNE 



LDA 

STARTP+1 


CMP 

ENDP+1 


BEQ 

ENDMOV 


U-LDX 

#0 

LDA 

(STARTP.X) 

STA 

(INTOP.X) 

INC 

STARTP 

BNE 

*+4 INC2 STARTP 

INC 

STARTP+1 

INC 

INTOP 

BNE 

«+4 INC2 INTOP 

INC 

INTOP+1 

JMP 

MOV 

ENDMOV RTS 



If you have defined the following macro at the 
beginning: 


INC2 MACRO PT 
INC PT 
BNE *+4 
INC PT+1 
MEND 

you can replace the parts of the program marked 
by brachets by calling macro INC2 STARTP 
and INC2 INTOP. 
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A sample session with the ATAS-1 


Order-No. 7098 32k RAM S49.S5 

Order-No. 7998 48k RAM $49.95 

For loading see the instructions given for locating ATMONA-1 
(ATMONA-1 + ATARI MONITOR Version 1). The ATMONA-1 is part 
of the assembler ATAS-1. 

Important : This assembler is written for a 32K system, either 
ATARI 400 or ATARI 800. It will only run in this environment. 
If you have less memory, it will not work, but if you have 
more memory it also will not work. Therefore, if you have a 
48K system, you have to remove the upper 16K of memory. 

After loading you will see the message ATAS-1. 

To start the assembler, type K for coldstart. This will erase 
the text buffer and should only be typed in at the beginning 
of a new session. 

After doing this, you see two lines on the screen. One on 
the top: 

P: 00000 T: 09984 C: 00512 OK 

and a line of dots on the bottom. 

The cursor is at the beginning of the text window. If you 
type in some text, you will see an increasing number at P: 
and a decreasing number at T: . 

The number at P: shows you how many bytes you have used for 
your text; the number at T: shows you how many bytes of the 
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textbuffer are free. 


Now, let's erase the text you have written by typing 
ESC K ESC ESC 


After typing the first ESC, you will see a $ sign at the 
beginning of the command line. This means you have opened 
the commandline for entering commands. The letter K indicates 
you will erase the textbuffer. The next ESC closes the command 
and it is executed with the next ESC. The command line now 
looks like following: 

$K$# 


The number sign indicates that you executed the command. 


As an example we will type in the following program: 


EOUTCH EQU $F6A4 

PUTLIN EQU $F385 

ORG $AC00 ( ATMASI 48K ) 

* ORG $A800 ( ATMAS 48R ) 

* ORG $8D00 ( ATAS 48K ) 

* ORG $6000 ( ATAS 32K ) 

LDA #$7D 
JSR EOUTCH 

LDX IMES : L ( ATMAS & ATMASI ) 

LDY #MES:H ( ATMAS & ATMASI ) 

* LDX IMES ( ATAS 32K & 48K ) 

* LDY IMES/256 ( ATAS 32K & 48K ) 

JSR PUTLIN 
BRK 

MES ASC "DIESE MELDUNG WIRD" 

ASC *AUF DEM BILDSCHIRM AUSGEGEBEN" 
DFB 59B 
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This program uses two monitor routines of the ATARI monitor 
The routine EOUTCH puts one character on the screen; the 
routine PUTLIN outputs text until a $9B is encountered. The 
maximum length of text is 128 bytes. 

The instruction ORG $A800 means that our program starts at 
memory location $ A800 . 

In this program, we load the accumulator with $7D and put 
this command on the screen with JSR EOUTCH. This is the 
internal command for the ATARI to erase the screen and set 
the cursor in the upper left position of the screen. Then 
we use the subroutine PUTLIN to print text on the screen. 
The starting address of this text is transferred to the 
subroutine PUTLIN via the X and the Y registers. The low 
byte of the address must be in the X-register and the high 
byte in the Y-register. 

After the JSR PUTLIN 

instruction, the program is terminated by a BEK instruction 

A new ORG $4050 tells the assembler to store the following 
text beginning at this location. 

The pseudo instruction ASC is used for storing the text. 

The end of the text is indicated by the pseudo instruction 
DFB $9B. 

(DFB equals DeFine Byte). ATARI uses $9B for ending a text 
instead of $0D as it is normally used as an ASCII-character 
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The ATAS-1 uses the normal interpretation of text just like 
other assemblers. A label starts in the first column of a 
text line: an opcode is preceeded by at least one space 
character. 

To get a neat looking output in our assemblertext , we use 
the TAB function of the editor. Every label starts in the 
first column, every op-code starts in the 9th column. 

We set the TAB- function by typing 
ESC @9ESC ESC 

Our command line looks like : 

$@9$# 

Now we start writing the text: 


EOUTCH 

CTRLI 

EQU $F6A4 


PUTLIN 

CTRLI 

EQU $F385 


CTRL I 


ORG $ ACOO 


CTRLI 


LDA $ 7D 

and so on 


CTRL 1 means, pressing both the CTRL and the I key at one 
time. 

If you make a typing error, you can erase the preceeding 
character by CTRLN. 

At the end of the text, type CTRL Z. This indicates to the 
assembler that the assembling stops here. ATAS I doesn't 
use an END- instruction. 
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Order-No. 7022 cassette version SI 9.95 
Order-No. 7023 disk version S24.95 
Order-No. 7024 cartridge version S59.00 

fflftOHA-1 

ATMONA-1 — Machine Language Monitor for the ATARI 
ATMONA-1 was developed by Ing. W. Hofacker GmbH for the 
ATARI 400 and 800 computers. It is a machine language monitor 
supplied on a bootable cassette. 

For loading the cassette, use the following instructions: 

1. Turn off the computer, remove all cartridges and turn off the 
disk (if any). 

2. Insert the cassette in the program recorder and press PLAY. 

3. While holding down the START key, turn on the computer. 

4. When the computer beeps, release the START key and press 
RETURN 

The program is now loaded into the computer. 

After loading, the computer will show a copyright notice and the 
title "ATMONA-1". 

Now you can enter one of the following instructions: 

D Disassemble 

M Memory dump, with or without ASCI I characters 
C Change the content of a memory location 
F Fill a memory block with a specified byte 
B Block transfer 

L Load machine code from tape 

S Save machine code on tape 

G Goto a specified address (Start a program) 

X Breaks the executed instruction and goes back to input 
level. Same as SYSTEM RESET 

Commands: 

You must type in only what's underlinded. 

DISASSEMBLER 

START? 1000 Disassemble starts at 1000 HEX. 

PRINT? N No print (see note). 

Now disassembling begins, printing 16 lines 
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X 

M 

DUMP 

FROM: 1000 
TO: 1100 
ASCII? Y 

N 

PRINT? N 


X 


on the screen. Hit any key (except the X key) 
for the next 16 lines. 

Terminates the disassembling. 

Starts memory dump. 

Dump begins at 1000 HEX 
Dump ends at 1 100 HEX 
Hex bytes are also printed as ASCII charac- 
ters. 

Only hex bytes are printed. 

No printer is used (see note). 

The dump starts, displaying 16 lines on 
screen. Hit any key except the X key for the 
next 16 lines. Dump ends at the ending 
address, or 

Terminates the dump. 


Note: Printing only with printer option (See appendix). 


CHANGE 
ADDRESS: 1000 

1000 00 = > FF 

1001 00 = > 
RETURN 
1002 00 = >X 
FILL 

FROM: 1000 


TO: 1100 


The content of memory address 1000 HEX is 
changed from 00 HEX to FF HEX. 

The content of memory address 1001 is 
not changed. 

Terminates the change. 

Fills the memory block starting at 1000 
HEX until 1100 HEX with the hex byte AA. 


WITH: AA 


BLOCKTRANSFER 

FROM: 10QQ The contents of the memory block (starting 
at 1000 HEX, ending at 1100 HEX) are 
TO: 11 QQ transfered to 2000 HEX until 2100 HEX. 

INTO: 2000 
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LOAD 


Loads a machine language program into 
memory. Insert cassette, press PLAY and 
RETURN. 

SAVE 


Saves machine code on tape. Starting address 
of the code is 1000 HEX, ending 

FROM: 

1000 

address is 1100 HEX. Press RECORD and 
PLAY on the tape recorder, then RETURN. 

TO: 

1100 


goto 

1000 

Starts a machine language program at memory 
location 1000 HEX. This address must be the 
starting address of the program. 


Appendix: Using a printer in the machinelanguage- 

monitor 

a) YES (Y) after PRINT? gives you three 
options. 

(1) Output to printer via serial port of the 
ATARI RS232 Interface 

(2) Output via the parallel port of the 
ATARI Interface 

(3) Output via the expansion from Elcomp 
- Publishing, Inc. 
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Order-No. 7049 
Order-No. 7050 


cassette version 
disk version 


S49.95 
S 54.00 


ATMONA-2 

ATMONA-2 

The ATMONA-2 consists of two separate programs: 

the ATMONA-1 which comes up when the cassette is booted 

and the SUPERTRACER which starts at memory location 

0F00. 

For loading the cassette, see the loading instructions given for 

ATMONA-1 . 

After booting the cassette you can use all the functions of 

ATMONA-1. 

To start the SUPERTRACER, type GOTO 0F00. 

(For disk version refer to page 35!) 

You will see the first command line of the SUPERTRACER: 

SUPERTRACER (T) (G) (X) (C) (P) 

T Start tracing thru a program. The starting address is 
momentary content of the program counter PC. Every 
single step is displayed on the screen, showing you the 
contents of the program counter PC, the accumulator 
AC, the X- and the Y-register XR, YR, the stackpointer 
SP, the flags in binary representation, and the 
mnemonic code of the next instruction. To execute 
this instruction, type SPACE or any other key except 
those keys shown in the command line. 

G The same as T, but now the steps are executed auto- 
matically until a stop condition is executed. If the 
program doesn't find any, hit SYSTEM RESET. 

X Terminates the SUPERTRACER and switches back to 
ATMONA-1. 

C Enters the CHANGE command level. 

P Sets the PRINTER option (see note ATMONA-1). 
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The CHANGE command level: 

This level is reached by typing C in the first command level. You 
will see the change command line: 

CHANGE (A) (0) (R) (X) 

A Changes address. When the program is started by the G 
command, it will halt and display the contents of the 
registers every time this address is encountered. 

0 The program will now>stop every time this given operand 
is encountered. 

With both pf these instructions you can set the address- 
stop or the operand stop. Both can be set individually. 

R Changes the contents of the registers. These are not stop- 
ping conditions. The program executes the next instruc- 
tion with these predefined values. When you type R you 
enter the third command level (see below). 

X Terminates the CHANGE command level. The contents 
of all registers is shown on the screen. 

REGISTER CHANGE level: 

The commandline is: 

CHANGE PC, XR, YR, AC, SP, FLAGS 
PC Sets the program counter to a predefined value. The next 
T or G instruction will start the program at this address. 
XR, YR, AC, SP The contents of these registers can be changed. 

FLAGS 

SR: 80 80 HEX is equal to 1000 0000 binary. Therefore the N 
bit of the status register is set to 1 . 

RETURN 

Terminates the register change level. 


The ATMONA-2 can be used in three different ways: 

1. Searching for bugs in machine language programs. 

2. Stepping thru unknown programs. 

3. For educational purposes. Learning 6502 machine code. 
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The following is an example of item # 3. For those who want to 
learn 6502 code, it shows the execution of some instructions. 

We will use the following program mini-COUNT. The program 
counts the X and the Y registers as a 16-bit number until this 
number is equal to a 16-bit number stored in the memory 
locations S 1FFE and S 1FFF. (Hex numbers will be indicated 
by a preceding Ssign). 


Program COUNT : 




MEML = 8 1 FFE 

S2000 A9 00 


MEMH = £1 
LDA # 00 

FFF 

Load accu with 00 

S2002 AA 


TAX 

immediately 

Transfer accu to X reg. 

S2003 A8 


TAY 

Transfer accu to Y reg. 

S2004 CC FF IF 

M0 

CPY MEMH 

Yreg = MEMH ? 

S2007 DO 05 


BNE Ml 

If not equal, goto Ml 

S2009 EC FE IF 


CPX MEML 

Xreg = MEML ? 

S200C F0 07 


BEQ FIN 

If equal then end 

S200E E8 

Ml 

INX 

Increment Xreg. 

S200F DO F3 


BNE M0 

IF Xreg not equal 0, goto 

£201 1 C8 


INY 

M0 

Increment Yreg 

£2012 18 
£2013 90 EF 


CLC 

BCC M0 

Jump to M0 

£2015 4C47 07 

FIN JMP0747 

Jump to ATMONA 


Using the CHANGE option of ATMONA 1, we enter the program 
at starting address S2000: 

CHANGE 2000 

2000 00 = > A9 


until 

2017 00 = >07 

We leave the CHANGE option by typing X and look at the pro- 
gram by Disassembling. The program on the screen must be the 
same as the listing above, except there are no symbolic names. 
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Before we trace this program, we change the contents of the two 
memory locations S1FFE to 01 and S1FFF to 00. 

Now we enter the SUPERTRACER by GOTO 0F00 and CHANGE 
the REGISTER PC to 2000 . AC to FF, XR to FF and YR to FF. 

We leave this program level by hitting the RETURN key and the 
CHANGE option by typing X. 

The following two lines must now appear on the screen: 

PC AC XR YR SP NV.BDIZC MNM OPERAND 
2000 FF FF FF FF 00000000 LDA #00 

and also the ST command line: 

SUPERTRACER (T) (G) (X) (C) (P) 

You will note that all the registers have the value we entered. The 
programcounter is $2000 and the next instruction which will be 
executed is LDA # 00 which means to load the accumulator with 
00 immediately. 

This instruction is executed when we type T for TRACE. The 
program stops at the next instruction, and the screen shows two 
new lines: 

PC AC XR YR SP NV.BDIZE MNM OPERAND 

2000 00 FF FF FF 00110010 TAX 

The content of the accumulator has changed to 00 (as it should) 
and the zero flag in the status register is set to 1 because a zero 
has been read into the accumulator. 

If we type T once more we can see the result of the instruction 
TAX: 

PC AC XR YR SP NV.BDIZE MNM OPERAND 

2003 00 00 FF FF 00100010 TAY 

In this manner we can trace our whole program and we see that 
each instruction accomplishes. 
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For another short demonstration we will use the ADDRESS STOP 
and the GO function. First we step back to the ATMONA-1 by 
typing X and CHANGE S 1FFE to 05. After leaving the change 
option, we restart the SUPERTRACER by GOTO 0F00. We 
CHANGE ADDRESS to 200E and REGISTER PC to 2000. With 
RETURN and X we step back to the ST command level. 

After starting the program with G, it stops at address $ 2007 
because there is reference to our stopping address 200E in the 
operand field (BNE 200E). A new GO forces the program to con- 
tinue until address 200E is reached. 

Type G again if you wish to step thru the program until the com- 
pare instruction in memory location S2009 is fulfilled. 

The program will then start tracing the ATMONA 1 . 


The ATMONA-2 Disk Version comes on a bootable disk. After loading, you 
enter the ATMONA-1, which is included. Then you type Q to enter DOS. 

In DOS you load the Superstepper object code, using the L-command. 

The filename is: SUPRSTEP.OBJ. 

Then you go back to the ATMONA-1 with B-RUN ATMONA. 

To get to the Superstepper type GOTO 2AOO. 
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How to woiic with 
ATMONA-2 


How to work with ATMONA-2 

With ATMONA-2 you can step through a machine language pro- 
gram in 6502 code. You can stop at a previously entered address, 
opcode or operand. You can T(race in single steps or simulate the 
program with a G(oto. 

Lets do an example: 

First load the ATMONA-2. 

Now you can look at the code of ATMONA-1 by D(isassembling 
D 0747, P=No. You will see the disassembled listing on the screen. 
At address 0758 you should see a JSR 0763. For debugging pur- 
poses we will halt the program at that address. 

By typing X we return to ATMONA-1 (included in ATMONA-2). 
We start ATMONA-2 by GOTO 0F00. You will see the first com- 
mand line: 

SUPERTRACER (T) (G) (X) (P) 

Let' s type C for change. 

Now you will see the second command line: 

CHANGE (A) (O) (C) (R) (X) 

To define a stop address we type A. 

It will respond with: 

ADDRESS: 

and here you enter 075B. The second command line will return 
and you can define other stopping conditions. To start our test- 
program we change the contents of the program counter by 
typing R for register and we will see the following prompt line: 

CHANGE PC,XR,YR, AC, SP, FLAGS 
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Here you can change the contents of the 6502 CPU registers. 

In our example we change the program counter by typing P, and 
after the prompt PC: we enter 0747 which is the starting address 
of the testprogram. Now we type RETURN for exit of this 
command level and X for reaching the highest command level. 

ATMONA-2 will display your starting address and the starting 
conditions. 

Type G(oto and the supertracer will simulate the program until it 
reaches a stopping condition. You will see a slow execution of 
ATMONA-1 because 0747 is its starting address. After a few 
seconds it stops at address 075B, showing us the contents of the 
registers and the mnemonic code of the next instruction to be 
executed. 

You are in the first command level and you can T(race (single 
step) or define new stopping conditions. 

Instead of stopping at an address you also can stop at a defined 
opcode or a defined operand. 

The supertracer ATMONA-2 stops at non executable opcodes, 
RTI or BRK instruction. 

While running the supertracer may be stopped by pressing the 
RESET button. 
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LEARN FORTH 


S 19.96 


LEARN FORTH 

Ordar-No. 7053 

LEARN FORTH has been developed by ELCOMP for the ATARI 400/800. It allows 
you to type In and run the sanple programs published recently in books 
about FORTH (Brodie, FORTH Learning By Using, etc.) 

LEARN FORTH is available on cassette or on disk and will work even with a 
cassette based ATARI 400. 

LEARN FORTH by ELCOMP is a subset of fig-FORTH. It contains all 
definitions of fig-FORTH, but it does not have an editor or screen windows 
(SCREENS) . It allows you to save your definitions. Command VLIST shows the 
definitions already implemented. 

Loading the disk-version 

The disk-version boots itself and comes up with a message on the screen. 
Loading the cassette-version 

LEARN FORTH for ATARI comes on two cassettes. Load the first one like a 
bootable cassette (turn the computer on while holding down the yellow 
START key, load the program after the beep) . Your ATARI will come up with 
a message on the screen. Now enter L and load the second cassette with the 
object code on it. After that you can do a coldstart by pressing 'K' . You 
then are in LEARN FORTH. 

If you have extended LEARN FORTH by your cwn definitions you save the 
object code on a new cassette using command SAVE. 

Error messages : 

STAPEL LEER the stack is empty 
STAPEL VOLL the stack is full 
<NAME> ? <NAME> is unknown 
FALSCH error during compilation 

Warnings ; 

<NAME> SCHON VGRHANDEN <NAME> defined before 

<NAME> GESCHUETZT <NAME> is in protected area of the dictionary 

If an error FALSCH occurred during compilation you may erase the name 
altered from the dictionary by 

SMUDGE FORGET <NAME> 

A hint s 

The length of the program is about 5.5 kbyte. All definitions are tested, 
but it is possible that there are hidden errors included. In case you 
detect an error please let us knew about it and where it occurred. You 
help us and others by doing so. 

NOTE: 

Typing in MON in the Learn FORTH brings you back into the LOADER. 

(LOADER = 1. Cassette) 

Then you can go back to Leam FORTH by pressing W for warmstart or K for coldstart. 
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HEX ( - ) Set hexadecimal base 

BASE ( — atidr ) System variable containing number base 
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True if nl greater than n2. 

True if top two numbers are equal. 

True if top number negative. 

True if top number zero (i.e., reverses truth value). 



© 

c 

© 


a 

o 

c 

o 

CO 

CO 

a) 

w. 

T 3 

T 3 

CO 


C 

© 

c 

o 

o 


£ « 
© <D 

• 'O -o 
WT3-o 

8 * « 
-O © © 
T 3 
CO 


* 5 

-X 
O 
CO 


? o> 
"cl 

h ® ft) 

I * 3 

C 
CO 


CO * 

a « 


CO 
CO 
© 
k- 

• T 3 
CT -ri Z* >» T 3 

•O E C c © 

■O O O O 

10 ^ © 0 ) ° 3 •= 

■O T 3 C w 

° n -° -O m *° 2 

<D © C C C 

(J CO o o c 

i? O) ^ 

£°S 2 § 

oc to u. c /3 a 


• w — 
-Q M -Q 

« err 


c e- 

° i 

© V 

II 

c 

T 3 © 
§1 
8 => 
© 0) 

?! 
< 5 


^ J ^ 

^ ^ ^ 
coo 
E E E 
© © © 
E E E 
c c c 

CO CO CO 
© © © 

>*>*>» 
JD Q A 
3 3 3 

iZ iZ iZ 


X 

© 

T 3 

c 


> 

© 

i 

© 


T 3 

© 

© 

05 

C 


0 . © 
O ^ 

o « 


© 

a> , 


© 


© _ 

~ o ~ 

2 a- m 

c £ O © 
© ° X T 3 

*- © o -C 

x 3 _ j © 

■D 5 X 3 
C > © A 

— X c . 
c © — Q. 
© -D CO O 

I.: go 

do 
O t 
O d 

f 8 
© © 

CO CL 


18 

ii 


ID 

I 


2 LU 
X W 


B) 3 

o ■“ 
a ® 

£ £ 
2 = C /3 


Q 

2 

LU 


ffl z 

C 3 
LU 

u CD 


“> « 
© m 
w CO 
3 3 

£ £ 

t= € 
° ° 

© © 

II 


a, © 

Hi © 

3 3 
O © 

« O 
© LU 
^ Cfl 

2 LU 

© <d 
K1 z, 

|i 

S. x 
© 

© . 
2 © 
~ i? 
-x © 
o r 
© — 


© 

© 

© 

3 


€ 

O 

u. 

© 

o 

z 


z 

3 


c 

3 

z 

o 

LU 

CO 

o 


tr ♦? -x 
© 
X 5 


a 

o 

o 


1 , — 
3 P ! I 

2 3 3 D 


T 5 T 3 
w'nw'ni_‘n_h_ww 
■Oco 2 «-o§E-oT 3 ri 
■p P D T 5 1 ) 
c^raran 


TJ TJ 
neap 


> 

© 

o 

2 

LU 


UJ 

> 


w 

til ¥ 
CD Z 


O w z 

@ i d g 3 

®-.oof+oEiiii 


a 

m 


© . 

UJ + 

© _ 
3 ® 
h ~ 
O « 
3 
© 

& 

§8 
h J 

S 8 


?3 


t r 


t 

r ~ 

2 t 
c 

'I&t t 

_ o — — 

b + ^rr 

-T 5 *: 2 = 


C 

3 


a. 

O 

O 

_j 
+ 
UJ ; 

WQ 


U- LU LU 
Q CDQ 
7 -J 7 

iu uj£u 


o' o 

3 « 


2 

D 


l2 
: O 


41 


BEGIN . . . WHILE . while: ( f - ) Loop while true at WHILE: REPEAT loops unconditionally to BEGIN 

. . . REPEAT (Note: Forth 78 uses BEGIN IF AGAIN ] 



( n - ) Print number 

( n fieldwidth - ) Print number, right-justified in field 

( d ~ ) Print double-precision number 
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#S ( d - 0 0 ) Convert all significant digits of double-precision number to output string 

SIGN ( n d - d ) Insert sign of n into output string. 

#> (d - addr u ) ' Terminate output string (ready for TYPE) 

HOLD ( c - ) Insert ascii character into output string. 



DISK HANDLING 

LIST ( screen - ) List a disk screen 

LOAD ( screen - ) Load disk screen (compile or execute) 
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CODE ( — ) Used to create a new defining word, with execution-time code routine tor tnis data 

type in assembly 

<8UILDS DOES> does ( - addr ) Used to create a new defining word, with execution-time routine for this data type in 

higher-level Forth 



VOCABULARIES 

CONTEXT ( - addr ) Returns address of pointer to context vocabulary (searched first). 

CURRENT ( - addr ) Returns address of pointer to current vocabulary (where new definitions are put) 
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Forth Interest Group, P.O. Box 1105, San Carlos, CA 94070 



Order-No. 7055 


disk 


S39.95 


power-forth is a development of FIG-FORTH 1.1. 
power-forth consists of two parts. The first part 
is written in machine-language and will be loaded 
as you turn the computer on. The second part, which 
is on the backside of your disk, is written in 
FORTH and can be loaded only in FORTH. 

This second part again consists of different parts 
(packages) . For example the UTILITY package which 
should be loaded first, because it is required by 
the other packages. To do so use the FORTH-command 
'6 LOAD* . After the package has been loaded the 
computer will respond with 'OK' . 

Besides the UTILITY-package there are others for 
screen-editing, for graphics and I/O, and for 
special player-missile graphics. 

The commands for the different packages are 
described seperately later. 

Besides the different packages power-forth 
includes a short arcade-game for demonstration of 
the PM-graphics . 

Lots of fun with these powerful programs wishes : 

ELCOMP PUBLISHING INC. 

53 Red rock Lane 
POMONA CA 91766 


IMPORTANT: 

Do not use the delivered disks for your own files. It will destroy itself! 


Instead of HOME in FORTH-79 power-forth uses the 
definition LEER. 

( CREATE FOR ADAPTING FORTH 79 OR POLY-FORTH TO FIG- 
FQRTH ) 

CREATE 0 VARIABLE -2 ALLOT ; 


Description of the power-forth kernel 

Same like FIG-FORTH 1. 1 but the following 

differences : 

? TERMINAL asks the yellow keys. If no key is 
pressed then 0 is put to the stack, 
otherwise : 

START=1 , OPTION=2, SELECT=4. 

C/L has the value 32 (characters/line) 

LEER erases the screen. : LEER 7D EMIT ? 

HALLO prints the copyright statement 

MON is illegal (jump $2B47) 

. SCREEN prints the contents of the screen via 
ports 3&4 

SEC/DR contains number of sectors/drive (720) 

DUNIT variable for drive # 

DSTAT (VAR) I/O STATUS after use of disk 
IOSEC (VAR) SECTOR# 

IGBUF (VAR) SECTOR-BUFFER ADDRESS 

DRIVE instead of DRQ/DRI (n — > ) n is drive # 
then you can work on another disk 
"direct", using command CFSEF (drive 1 
simulation) 
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POWER-FORTH always uses 
I0CB#3 and #4 

I0CB#3 input from keyboard 
I0CB#4 output to screen 

Note : 

NOt each block K*720 can be accessed (ERROR 139) 
this is sector zero of the disk. (k= [0,1.. .] 


UTILITY PACKAGE 


DOS 

(— » 

jump to DOS (frontside of disk) 

CASE 

(— » 

similar to ON. .GOTO in BASIC. 

For example : CASE A K L ; 
defines A and if A is called K or 
L is executed, depending on 
whether a 0 or a 1 is in the 
stack. This is true for n 
different words. 

DUMP (adr n - 

-» prints n bytes starting at adr 
in hexadecimal and ASCII. 

• • 

/ • 

(— » 

DECOMPILER. The word following ; : 
will be dispersed if it is a 
double function ; : (no blank) 

'S (- 

-> SP) 

puts actual value of stack- 
pointer to stack 

.s 

(-» 

prints stack without changing it 

LOAD- ED 

(-» 

loads editor-package 

LOAD- 10 

(— » 

loads I/O package 

LQAD-PM 

(-» 

loads player-missile package 
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DISKCOFY (— » copies by sector with one drive 
This way it is possible to copy 
a disk with text (for 32k-ver- 
^sion change in colordef initions 

"WRITE" on SCR#11 B800 
into 7C00 hex. 


DR1->DR2( — >) copies drivel to drive2 by sector. 

Editor package 

The editor described here is for creating text- 
screens With POWER-FORTH. 

The editor is stored on the backside of the power- 
forth disk and can be loaded while in FORTH by 

6 LOAD (loading the utility package) 

and then 

LOAD- ED 


In a similar way you can load 

LOAD- 10 and 
LQAD-PM 


After the editor has been loaded it can be 
activated with command EDITOR. If a screen should 
be entered you first have to enter 45 LIST. 

If the text area is already occupied then you have 
to search for another (empty) one. If it is empty 
only the line numbers appear (without text) . 
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SCR # 45 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

Now the editor expects the input of a command. 

0 M (blank between 0 and M) 

will place the cursor one line down. Now you can 
enter line 0. 

You can enter a maximum of 32 characters. After 
32nd character it will be cut off. For more than 32 
characters you have to continue in the next line 
(in our case 1 M) . 

To check what has been entered so far use command L. 

To finish the input enter FLUSH . This writes the 
contents of the buffer to disk. 


Command EDITOR opens the vocabulary of the editor. 
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L ( — » erases the screen and shows the actual 

text-window (SCREEN) assigned to the 
variable SCR. 

E (n — >) erases lines of text-window 

S (n — >) inserts a blank line at line n 

D (n — » deletes line n 

M (n — >) deletes line n and waits for input 

CLEAR (n — » deletes text-window n 
COPY (nln2 — >) copies text-window nl to n2 
—> ( — >) shows next text-array 

( — >) shows preceeding text-array 

1/0-Package 

These commands bring addresses to the stack. (Now 
you can use them like variables) 

ICOOM ( — >adr) address of ClO-command-byte 

ICSTA ( — >adr) address of ClO-status-byte 

ICBAD ( — >adr) address of ClO-buffer 

ICBLE ( — >adr) address of ClO-buffer length 

ICAX1 ( — >adr) 1st ClO-auxiliary-byte 

ICAX2 ( — >adr) 2nd ClO-auxiliary-byte 

TO# (n — >) changes channel # in CIO- 

addresses 
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« CO W Pn u 


To open the single devices 


^ ( — >adr) proper address to stack 

Check of status-byte 

2ICERR ( — >) if there is an IO-error it is 

printed 

Opening of a file 

OPEN (FILE AUXl AUX2 n— » 

opens IO-channel n. For example : 
E: 8 0 4 OPEN is the same as the 
BASIC-command OPEN#4,8,0,"E:" 

CLOSE (n— » closes IO-channel #n 

GET (n — >d) gets byte d from IO-channel n 

PUT (dn — » sends byte d via channel n 

PR- CM ( — » output goes via printer (P: ) 

PR-OFF ( — >) undo command PR-ON 

SOUND (nl n2 n3 n4 — » 

turns on channel n4 with the 
frequency n3, the distortion n2, 
and the volume nl 

RESSND ( — » turns off all sound channels 


GR. (n — » opens the screen on channel 6 

with graphics-mode n (mixed mode) 

GR.16 (n— » like GR. but full graphics 
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SETCOLOR (nl n2 n3 — » 

register n3 is loaded with 
color n2 and brightness nl 

COLOR (n — >) register n is defined for 

commands PLOT and DR2WTO 

PLOT (x y — » a dot is printed at location x, y 

DRAWTO (x y — >) a line is drawn from the actual 

position to position x, y 

POSITION (x y — >) cursor is placed at x f y 

.#6G"... prints string via channel 6 

(suitable for MODEL & M0DE2) 

STICK (n — >d) gets from stick n the value d 

STRIG (n — >d) gets from trig n the value d 

Player-Missile-Graphics with PCWER-FORTH 

PCWER-FQRTH comes with a package, which allows you 
to take advantage of the graphics- and sound- 
capabilities of your ATARI-800 also in FORTH. 
Note:aexp=number on the stack 
pnum=player number 

The following commands are available : 

HSTICK 

VSTICK 

aexpHSTICK 

aexpVSTICK 

The last two commands are for asking of the 
joysticks. 

n VSTICK reads joystick #n and delivers the 
following to the stack : 
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-1 if the joystick is pushed forward 
+1 if the joystick is pushed backward 
_ 0 if the joystick is in standard position 

n HSTICK reads joystick #n and delivers : 

+1 if the joystick is pushed to the right 

~1 if the joystick is pushed to the left 

0 if the joystick is in standard position 

aexp PMG 

This command is for initializing of the player- 

missile-graphics . 

aexp can be 0, 1, or 2. 

0 = turn off PMG 

1 = turn on IMG for single line resolution 

2 = turn on PMG for double line resolution 

Hie two kinds of resolution will be called PM3-mode 
from now on. One bit defines, whether one or two 
lines on the screen are occupied. One line is the 
height of one pixel in graphics mode 8. In graphics 
mode 7 the height of one pixel is two lines on the 
screen, similar to 2 IMG (note the blank between 2 
and PMG !) 


Double line resolution only requires half of the 
memory necessary for single line resolution : 128 
byte per player instead of 256. 

PMCLR 

format : pmnum PMCLR 
example : 4 PMCLR 

This comnand deletes the area in memory for that 
particular player. PMCLR considers the mode and 
only deletes the matching area. 

Note, that 4 PMCLR and 7 PMCLR will clear all 
missiles, not just the named ones. 
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PMOOLOR 

format : aexp a exp pnum PMOOLOR 
example : 8 13 2 PMOOLOR 

PMOOLOR is used in PCWER-FORTH for a player-missile- 
set the same way SETCOLOR is used . There is no 
command corresponding with the general COLOR- 
command in PMG. This command is not necessary 
because each player has its own color. In the 
example above player 2 and missile 6 are set at a 
medium luminence (8) and a green color (hue 13) . 

Note that PMG has no default colors after RESET or 
after power up ! 

PMWIDTH 

format : aexp pnum PMWIDTH 
example : 1 2 PMWIDTH 


Similar to how you can select single or double line 
resolution using command PMG you can define the 
width of players and missiles using command PMWIDTH. 
The only difference is that PMG defines the 

resolution for all players and missiles while 
PMWIDTH allows you to define each player and 
missile separately, aexp defines the width and can 
be 0, 1, or 2. 

PMMOVE 

format : aexp aexp pnum PMMOVE 
example : 1 120 0 PMMOVE 
0 80 1 PMMOVE 

Once a player or a missile has been defined it can 
be moved around on the screen with command PMMOVE. 
power-forth allows you to move around each player 
and each missile independently. 
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The second parameter in the command defines the 
position referring to the left border. That number 
can range from 0 to 255. The lowest and the highest 
positions are outside the visible area. PMtfIDTH 
doesn't affect the position, it only enlargens the 
player to the right. 

The first parameter in PMMDVE defines a relative, 
vertical movement. within 128 or 256 bytes of 
memory. 

Vertical movements are achieved by moving bytes 
within memory. A relocation to higher memory 
locations corresponds with a down-movement on the 
screen, a relocation to lower memory locations 
corresponds with an up-movement on the screen. 
PCWER-FQRTH allows movements from -255 (255 pixels 
up) and +255 (255 pixels down) . 


Note : 

The +/- definition referes to the values delivered 
by a joystick. 

Example : 0 VSTICK 100 0 PMMDVE 

This command moves player 0 up or down on the 
screen, depending on the joystick-position. 

MISSILE 

Format : aexp aexp pnum MISSILE 
Example : 3 48 4 MISSILE 

This command makes it easy to shoot with a missile. 
The second aexp defines the vertical position of the 
missile. (0 means top of screen) . The first aexp 
defines the height of the missile. 

Example : 3 64 4 MISSILE 

Places a missile with a height of 3 or 6 lines 
(depending on the PMG-mode) at a position 64 pixels 
away from the top of the screen. 
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Caution : 

MISSILE does not turn on bits automatically. Ihe 
defined bits are worked up with the actual missile 
memory using an exclusiv^or function. That way you 
can delete existing missiles by creating other ones. 

Example : 4 40 5 MISSILE 
8 40 5 MISSILE 


The first command creates a 4 pixel high missile at 
position 40. Ihe second command deletes the first 
missile and places a 4 pixel high missile at 
position 44. 


PMADR 

Format : aexp PMADR 
Example : 0 PMADR 

This function can be used in every arithmetic 
expression. It is used to find out the address of a 
player or a missile. It is helpful, if the 
programmer wants to bring data into the area of the 
player or if he wants to read data there. 

Caution : 

m PMADR, where m is a number between 4 and 7 
delivers the same address for all missiles. they 
are in the same memory area. 

BUMP 

Format : aexp pmnum BUMP 
Example : 0 1 BUMP IF ... ELSE ... 
pnum= [0 . .3] or [4 . .7] aexp= [0 . .3] or [ 0 . .11] 
player missile player playfield 

BUMP may be used in all arithmetic expressions. 
'Hiis command allows to read the collision registers. 
It delivers a 1, if a collision has been detected, 
otherwise it delivers 0. This always refer res to a 
a pair of objects. The first parameter (aexp) can 
be either a number of a, player or a number of a 
playfield (8 - 11) . 
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Possible BUMPs : 

PLAYER -> PLAYER (0-3 to 0-3) 

PLAYER -> MISSILE (0-3 to 4-7) 

PLAYFIELD -> PLAYER (8-11 to 0-3) 
FLAYFIELD -> MISSILE (8-11 to 4-7) 


Caution : 

p p BUMP where p is a value from 0 to 3 (both the 
same) always delivers 0. Example: 0 0 BUMP 

It is recommended to set the collision registers to 
zero after a certain period of time. You can use 
for example : 0 0 BUMP, which doesn’t bring a value 
to the 'iOS, but it deletes the collision registers. 

SHAPE [byte] ,'aexp SHAPE NAME 

This command allows to enter something or to read a 
stack in the FORTH dictionary. 

For example : 


0=HJCfERl 

1=ELAYER2 

2=H20fER3 

3=PLSXER4 

4=MISSILEL 

5=MXSSILE2 

6=MISSILE3 

7=4HSSILE4 

8=PLRXFIELD1 

9=HJffFIEU32 

10=HJOTIELD3 

11=PLRYFIELD4 


The figure can be used as a player. 

28 16 16 16 56 60 63 56 56 16 
24 28 24 126 24 15 SHAPE COWBOY 

It is important that the bytes are in the stack in 
reverse sequence. Also important is the last number 
in the stack (TOS) . This number defines the size of 
the shape. (length) For instance: COWBOY now became a 
new command. 

COWBOY 

Format : addr COWBOY 
Example : 0 PMADR 128 + COWBOY 

will place the cowboy starting at the 128th 

vertical position off player 0. The player will be 
displayed on the screen. 
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128 64 32 16 8 4 2 1 



Demonstration for player/missile 

This demonstration program is well suited to learn 
how to program your own games with player missile 
graphics. 

There are different screens. We start the 
description with screen 55. 

To start the program we first have to enter the 
following commands : 

LOAD- ED 
LOAD- 10 
LQAD-PM 
55 LOAD 

After that the program can be started by entering 
GAME. 
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SCR # 55 

0 < DEMO GAME HCW ) 

1 0 VARIABLE POINTS 0 VARIABLE XM 

2 0 VARIABLE YM 0 VARIABLE YV 

3 0 VARIABLE XV 0 VARIABLE X 

4 0 VARIABLE YM1 

5 126 126 126 3 SHAPE RACKET 

6 HERE VARIABLE RND 

7 : RANDOM RND © 31421 * 6972 + 

8 DUP RND ! ; 

9 : RNDNR RANDOM U* SWAP DROP ; 


10 

11 : PFINI 

5 

GR. 

0 0 2 

SETCOL.OR 

12 

1 

COLOR 0 0 

PLOT 

13 

79 

0 

DRAWTO 

79 39 DRAWTO 

14 

0 

39 

DRAWTO 

0 0 DRAWTO ; 

15 — > 

OK 






First we define the variables needed. 

POINTS is for the score 

XM and YM are for the coordinates of the missile 
XV and YV are for the movement-vector of the 
missile 

YM1 is for the next to last position of the missile 
X is for the X-coordinate of the player. The shape 
of the player is defined in line 5. In our example 
we use a random number generator (lines 6-9) . 

In lines 11 through 14 the command for drawing the 
playfield is defined (very similar to BASIC 
commands) . 
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SCR 

# 

56 


0 

( 

DEMO GAME HCW 

) 

1 

s 

PLINI 2 PMG 15 

5 0 PMCOLOR 

9 


0 PMCLR 

1 0 PMWIDTH 

T 


0 PMADR 

85 + RACKET 

4 

er 


1 20 X ! 

0 120 0 F'MMOVE 

,J 

6 

m 

INIT PFINI PLINI 0 POINTS ! 

/ 

8 

m 

INITM 4 PMCLR 

1 19 4 MISSILE 

9 




10 

n 

a 

MVECT 2 RNDNR 

1 + YV ! 

1 1 


2 RNDNR 

2 + MINUS XV ! 

12 


19 DUP YM ! YM1 ! 

13 


120 XM ! 

5 

14 




15 

— 

~ > 



OK 


PLINI will activate and initialize the 
player/missile graphics. "2 PMG" turns on the 
player/missile graphics, which results in a pink 
color for the player and the missile. PMWIDTH 
results in twice the width. Line 3 places the 
previously defined shape at the 85th vertical 
position and finally the player will be placed in 
the middle of the screen. 

INIT combines these two commands and in addition 
deletes the variable POINTS. 

INITM deletes the missile area and generates the 
missile belonging to the player at the 19th 
vertical position. 

MVECT calculates the start vectors of the missile 
using the random number generator. It also defines 
the start coordinates of the missile. 
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SCR # 
0 ( 

1 : 


4 

5 

6 : 

7 : 

8 
9 

10 

11 

12 

13 

14 

15 
OK 
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DEMO GAME HCW ) 

SETP 0 HSTICK 2 * DUP 0< 

IF X © 47 > * 

ELSE X © 193 < * 

THEN X + ! 

0 X © 0 PMMQVE ; 

MXY XV © XM +! YV © YM +•! ; 

MM YM © YM1 ! MXY 

XM © 50 < XM © 205 > OR 
IF 15 20 10 0 SOUND RESSND 
XV © MINUS XV ! MXY MXY 
END IF 

YM © 19 < YM @92 > OR 
IF 15 20 10 0 SOUND RESSND 
YV © MINUS YV ! MXY MXY 
END IF ; — > 


SETP moves the player horizontal within the borders. 
Very handy for that is command HSTICK which 
converts the joystick position into a number 
relative to the actual position (-1 0 +1) . 

MXY adds the vectors YV and XV to the actual 
coordinates of the missile. 

MM checks whether the missile is within the borders 
of the playfield. If it is not it lets it rebounce 
with the same angle that it hit the border. During 
the bounce a noise is turned on for a short time, 
(lines 9 and 13) . 

SEIM moves the missile relative to the last 
position (YMl) . 

SCORE prints the score for the player. 

WAIT waits for the red fire button on the joystick 
to be pressed. 
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SCR # 58 

0 < DEMO 6AME HCW ) 

1 : SEIM YM @ YM1 H - XM 9 4 

2 PMMOVE ; 

3 : .SCORE SCORE " POINTS ? 5 

4 : WAIT BEGIN 0 STRIG 0= UNTIL j 

5 : GAME INIT BEGIN INITM MVECT 


6 

7 

8 
9 

10 


0 0 BUMP 
BEGIN SETP 
SETM 
MM 

0 4 BUMP 


1 1 


UNTIL 


12 


1 POINTS +! 


13 

14 

15 
OK 


LEER .SCORE 
WAIT ? TERM INAL 
UNT I L ; ; S 


GAME combines all commands described so far. If you 
enter GAME now the game will start. After a score a 
a game may be interrupted by pressing the red fire 
button and the yellow START key at the same time. 

Demo for HSTICK and VSTICK 

This program can be loaded with '59 IOAD' and 
started with 'DEMO'. 


Screen 59 contains a short sample program for the 
use of VSTICK and HSTICK. 
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SCR # 
0 < 
1 4 


4 

5 

6 : 

7 

8 
9 

10 
1 1 
12 

13 : 

14 

15 
OK 


59 

DEMO HSTICK VSTICK HCW ) 

DIM X 

MOV >R R HSTICK 2 * R X +! 

R VSTICK 2 * R X @ R> 
PMMOVE ; 

INI 120 0 X ! 150 1 X ! 

2 F'MG 10 5 0 F-MCOLOR 
10 13 1 PMCOLUR 1 F’MCLR 
0 F'MCLR 0 F'MADR 60 + 
COWBOY 1 F'MADR 60 + 
COWBOY O 120 0 PMMOVE 
0 150 1 PMMOVE ; 

DEMO INI BEGIN 0 MOV 1 MOV 
2TERMINAL UNTIL ; 


In line 1 an array of size 4 is defined. 

MOV moves a player depending on the joystick 
position. 

HSTICK delivers a value different from 0 if STICK 
indicates a horizontal movement (-1 for left, +1 
for right) . 

VSTICK is the same as HSTICK, but for vertical 
movements (-1 for up, +1 for down) . 
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DICTIONARY 


VLIST 

BUMP BMP HITCLR MBUMP PBUMP 

MFBUMP MPBUMP PPBUMP PFBUMP 

MASK MSK3 MISSILE VSTICK 

HSTICK. HORI VERT MONE ONE 

NULL COWBOY SHAPE PMCOLOR 

PMMOVE MMOVE MVMOVE MUPDOWN 
MDOWN MUP PMOVE PVMOVE PUPDOWN 

PUP PDOWN PMWIDTH PWIDTH 

MWIDTH MSK2 , MSK1 4"'" DIM 

PMCLR PMADR PMG PMGO PMG2 

PMG1 MS I Z PT PMBAS GRACTL 

DMACTL PMBASE PMOFFSET INIT2 

I N I T 1 (MUP) (MDWN) (PDOWN) 

(PUP) NEXT STRIG STRIG4 STRIG3 

STRIG2 STRIG1 STICK STICK4 

STICKS STICK 2 STICK1 .#6" 

(.#6") TYPE#6 POSITION PLOT 

2DUP DRAWTO COLOR COLR SETCOLOR 

GR.16 GR. GRN RESSND SOUND 

PR-OFF PR-ON PUT GET CLOSE 

OPEN 7ICERR C: P: Es S: 

K: FILE TO# ICAX2 ICAX1 

ICBLE ICBAD ICSTA ICCOM +IONO 

IOCB CIO (CIO) EDITOR DR1->DR2 

DISKCOPY WRITE 7SECW READ 

SECW SEC LOAD-PM LOAD-FLOAT 

LOAD- 10 L.OAD-ED „ S DEEP ’ S 

7; 7;s 7;C0DE PFA->ID. 

7C0L0NDEF DOCOL. GETPFA NOT 

U.R DUMP .ADR . ASC .HEX 

CASE DOS INDEX LIST R/W 

-DISC -BCD — > LOAD .LINE 

(LINE) BLOCK BUFFER DRIVE 

EMPTY-BUFFERS FLUSH UPDATE 

7L0ADING +BUF PREV USE IOBUF 

IOSEC DSTAT DUN IT SEC/DR 
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B/SCR 

B/BUF 

LIMIT 

FIRST .SCREEN 

MON 

HALLO LEER 

VLIST 7 

U. 

.R D. 

D. 

R #S # 

SIGN 

#> <# 

SPACES WHILE 

ELSE 

IF REPEAT 

AGAIN END 

UNTIL 

+LOOP 

LOOP 

DO THEN 

ENDIF 

BEGIN 

BACK 

FORGET 

MESSAGE M/MOD 

*/ 

*/MDD MOD 


/ /MOD * M/ M* MAX MIN 

DABS ABS D+- +- S->D COLD 

ABORT QUIT ( DEFINITIONS 
FORTH VOCABULARY IMMEDIATE 
INTERPRET 7STACK DLITERAL LITERAL 

[COMPILE I CREATE ID. ERROR 

(ABORT) -FIND NUMBER (NUMBER) 

WORD PAD HOLD BLANKS ERASE 

FILL. QUERY EXPECT 

(.") -TRAILING TYPE COUNT 

DQES> < BUILDS ; CODE (;CODE) 

DECIMAL HEX SMUDGE 1 C 

COMPILE ?CSP 7PAIRS 7EXEC 

7C0MP 7ERR0R ! CSP PFA NFA 

CFA LFA LATEST TRAVERSE -DUP 

SPACE ROT > < U<. 

C, , ALLOT HERE 2+ 1+ 

HLD R# CSP DPL BASE STATE 
CURRENT CONTEXT OFFSET SCR 

OUT IN BLK VOC-LINK DP 

FENCE WARNING TIB WIDTH SO 

+ORIGIN C/L BL 3 2 1 

0 USER VARIABLE CONSTANT 
; : C ! ! C@ © TOGGLE 

+ ! DUP SWAP DROP OVER MINUS 

D+ + (_k[ 0= R R R 

LEAVE ; S RP! SP! SPG* XOR 

OR AND CR U/ U* CMOVE 

7TERMINAL KEY EMIT ENCLOSE 

(FIND) DIGIT I (DO) (+LOOP) 
(LOOP) OBRANCH BRANCH EXECUTE 
CLIT LIT OK 
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In addition to power-forth there is a floating 
point package available. 

Loading of the floating point package : 

1. go to DOS 

2. load FLOAT. OBJ using command L 

3. go back to FORTH 

4. turn diskette (use backside) 

5. enter LOAD-FLOAT while in FORTH 


Floating Point Package 

F ( — >f) after this command you can enter 

a floating point number 

.F (f — » prints the floating point number 

which is in the stack 

F+ (flf2 — >fs) adds two FP-numbers 

F- (flf2 — >fu) subtracts two FP-numbers 

F* (flf2 — >fm) multiplies two FP-numbers 

F/ (flf2 — >fo) divides two FP-numbers 

LN (f — >fin) calculates the LN of a number 

LOG (f — >flog) calculates the LOG of a number 

EXP (f — >fexp) calculates the e-power of a 

number 

FIX (f — >n) changes a FP-number into a 

integer number 

FLOAT (n— >f) changes an integer number into a 

FP-number 

FDUP (f — >ff) doubles a FP-number 
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FSWAP 

(flf2 — >f2fl) exchanges two FP- numbers 

FVAR 

(f-» 

defines a FP-variable 

FCON 

(f-» 

defines a FP-constant 

F! 

(fadr— » 

stores a FP-number at adr 

F@ 

(adr— >f) 

gets a FP-number from adr 

FI/ 

(f— >fr) 

calculates the reciprocal value 

/s 

(flf2 — >fl|f2) calculates fl power f2 

SQFT 

(f-> f) 

calculates the square root 

PI 

(— >v) 

the number If is put to the stack 

FLIT 

comp. ( f- 
transit (- 

->) like LITERAL but for FP-numbers 
->f) 

COS 1 
SIN C 
TAN J 

(f— >fr) 

calculates the goniometric 
functions (0 - 90°) 

F= 

(flf2 — >flag) like = with integers 

F> 

(flf2 — >flag) like > with integers 

F< 

(flf2 — >flag) like < with integers 


67 



Order-No. 7223 £29.95 


HOW TO USE THE ASTROLOGY-PROGRAM FOR THE ATARI 800 


The Astrology Program from ELCOMP Publi- 
shing allows you to calculate a complete horos- 
cope. The program prints out the following: 

1 . Planetary positions 

2. Houses 

3. Ascendent 

4. Aspects 

To run the program you must know: 

1 . Your birthdate 

2. The location (longitude and latitude) of your 
birth 

3. The birth time HH.MMSS 

4. The time zone (how many houses away from 
Greenwich) 

East of Greenwich is positiv, west of Green- 
wich is negative. 

Note: Do not forget the daylight savingstime, 
war time a. s. o. 


How to start the program 

a) Insert Disk into disk drive I 

b) Enter DOS 

c) LOAD binary file ASTROZ.BIN 

d) GO TO BASIC-type B 

e) RUN "D:SC4" 

f) Type in :1 and 24 

g) Wait one minute 

h) Type : N 

i) RUN "D:ASTRO.BAS" 

j) Type in your information 

k) You can print out the screen via: 

SHIFTS 

SHIFT-D 

SHIFT-X 

SHIFT-C 

if you have a MX-82 FT from EPSON or a 
MX-100. 


EPROM Board (Crtridg.1, Ordar-No. 7043 £29.95 /// EPROM Board KIT, Ofd«r-No. 7224 £14.95 


EPROM Cartridge for the ATARI 800/400 

With this versatile ROM-Module you can use 
2716 
2732 

and 2532 type EPROMs 

To set the board for the specific EPROM, just 
solder their jumpers according to the list shown 


below. Without any soldering you can use the 
module for the 2532 right away. 

If you use only one EPROM, insert it into the 
right socket. If you use two EPROMs, put the 
one with the higher address into the right socket. 

The modul must be plugged into the left slot of 
your ATARI-computer with the parts directed 
to the back of the computer. 


EPROM I 2716 I 2732 I 2516 I 2532 I 

1 j ! j j 

I I I I I 

1 I V I O I V I V I 

I I I I I 

1 1 1 1 j 

I I I I I 

2 I O I V I 0 I 0 1 

I I I I I 

1 1 z j j 

I I I I I 

3 I V I V I V I O I 

I I I I I 

j j j j j 

I I I I I 

* I 0 I O I O I V 1 

I I I I I 


ATARI ii ■ trademark of ATARI Inc. 



V = means connected (jumper) 
O = means OPEN 
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S 29.95 
S 34.95 
S69.00 


Order-No. 7210 
Order-No. 7216 
Order-No. 7217 


cassette version 
disk version 
cartridge version 


ATEXT 

PREFACE 


ATEXT canes on cartridge, disk, or cassette. 

The disk version contains a file called AUTORUN. 
SYS and other system-files described in APPENDIX 
IV. 


All versions of ATEXT are bootable. After the 
program was loaded, the copyright statement will 
come up. Now press K and the text window will come 
up. 

To boot the cassette version hold down the START- 
key when turning on the computer and after the 
beep press PLAY on the recorder and RETURN on the 
computer. 

The cartridge version plugs into the left slot and 
is ready after you turn on the computer. 


IMPORTANT: 

Do not use the delivered disks for your own files. It will destroy itself! 
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THE EDITOR 


The EDITOR has two different modes : 

Cont r ol-camvands and commands in the command-line 
at the bottom of the screen. 


The following control-commands are available : 


CTRL A cursor to next format-command 

CTRL C delete up to next format-command 
CTRL D close copy register 

CTRL E open copy-register 

CTRL G repeat command-line 

CTRL H delete last character 

CTRL I cursor to next TAB-position 

CTRL J insert contents of copy-register at 

current cursor position 
CTRL K delete copy- register 

CTRL N delete last word 

CTRL 0 cursor to end of preceeding word 
CTRL P cursor to beginning of next word 
CTRL S cursor to end of text 

CTRL T display control-characters (oiy'off) 
CTRL U delete next character 

CTRL V delete to last format-command 

CTRL W cursor to beginning of text 

CTRL X delete last line 

CTRL Z delete next line 

CTRL - cursor to beginning of preceeding line 
CTRL = cursor to beginning of next line 
CTRL + cursor one character backwards 
CTRL * cursor one cahracter forwards 

ESC open/ close comand-line 


All CTKL-character s not mentioned above will be 
inserted at the current cursor-position. 
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The following catmands are available in the 
command-line : 


§ set TABr-position 

B one character backwards 

G change string 

D delete preceeding character 

E delete string 

F one character forwards 

G insert contents of copy- register 
H insert hexbyte 

I insert string 

J repeat command-line 

K delete textbuffer 11 

L call formatter 

M jump to DOS 

R read file via CIO 

S search for string 

T delete next line 

W write file via CIO 


You reach the command-line by using the ESC-key. 
The first dot in the command-line will be replaced 
by the dollar-sign. Each character typed in new 
will appear in the comandline. The command-line is 
terminated by pressing the ESC-key twice. Then the 
comand-line wil be executed and the number- 
character (#) will be displayed. 

There can be more than one command on comand-line 
if they are sepe rated by single c£C- signs. Some 
commands can be executed several times by entering 
a number from 2 to 255 in front of the command. 

You also can repeat the whole line using the J- 
command which brings you back to the beginning of 
the line. Of course this is possible only if the 
command was executed. It is not possible if an 
error occur ed, because then the program jumps back 
to the control-mode. 


71 



In the upper lefthand corner of the screen there 
is a counter, displaying the cursor position in 
the current line. If you write a line longer than 
255 characters, then the cursor will disappear. To 
warn you, there will be a beep starting at the 
250th character. 

Beginning at the 20th character the text of the 
current line will be scrolled. 

The second counter shows the number of characters 
in front of the cursor. The third counter shows 
the remaining free memmory locations. The fourth 
counter shows the remaining free locations in the 
copy register. 

In the upper righthand comer the status of the 
copy-register (OK = closed, CR = opened) or error- 
messages of the editor are displayed. 


TOE COPY-REGISTER 


You can read in a part of your text backwards into 
the copy-register by using the commands CTRL +, 
CTRL -, CTRL 0, CTRL Q or CTRL W. It also is 
possible to delete text and read it into the copy- 
register at the same time by using the commands 
CTRL H, CTRL X, CTRL V, or CTRL N. 

If you are finished with reading in, you can close 
the copy-register with CTRL D. 

Now the text in the copy-register can be inserted 
as often as needed with CTRL J. 

TOe command CTRL K deletes the contents of the 
copy- register. 
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More detailed description of the command-line 
commands : 

CHANGE (C) 

Format: C<stringl>ESC[/<stringn>ESC] ' <string2>ESC 
Example: $CAtext 1.0$/Atext$/text$TEXT$#.. 

This commandline changes Atext 1.0 into ATEXT 1.0 
Strings preceeded by / are searched locally, this 
means that nested search is possible. 


ERASE (E) 

Format: E<string>ESC 
Example: $EAtext$#... 

Next 'Atext 1 will be erased 

HEX (H) 

Format: H<byte>ESC 
Example: $H1D$#.. 

Inserts the hex-value ID which is an end-of-file 
marker for a disk-/cassette-file. 

INSERT (I) 

Format: I<string>ESC 
Example: $IHello$#... 

Inserts the word 'Hello' at the actual cursor- 
position 

SET TAB (@) 

Format: @<n>ESC 

where n=[1..9] 


LIST (L) 

Format: L[<2>|<file>]ESC ESC 

Sends text starting at actual cursor-position via 

the formatter to a device. 
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Devices: 

LE: screen (unsplitted) 

LP: printer 

LR: RS-232 

U*i:name diskdrive #n (n= [1 . .4] ) 

After you have saved the file on disk it is 
possible to send the file to a printer using the 
COPY-command of DOS. 

Example in DOS: Dl: TEST. TXT, P: 

Splitted screen: 


A single L Sends only the first 38 characters to 

the screen, a L followed by a 2 sends all 
characters from the 38th position to the screen- 
device. 

Example: $L$#..... 

The first 38 characters of a line will be 
displayed on screen. 

$L2$#... 

The characters from the 38th position 
will be shown. 


READ (R) 

Format: R<file>ESC ESC 

Inserts file at actual cursor-position. 

Example: RDn:name reads from diskdrive (n=[1..4]) 
RC: reads from cassette 


WRITE (W) 

Format: W<file>ESC ESC 

Writes a file from actual cursor-position to hex ID 
or to end of text 

Example: WDn:name writes to diskdrive (n=[1..4] ) 

WC: writes to cassette 
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THE FORMATTER 


A format-command line looks like the following: 
CTRIr-L[comn] '<CR> 

Each command-line, even empty ones, puts a space 
between two paragraphs. 

You can put as many commands in one line as you 
want. It is not necessary to seperate the commands. 


There are the following format-commands: 

A<T|F> automatic line feed after each 
paragraph default is false. 

C<T|F> center next lines. You only can center 
if left and right margins were defined 
earlier. This command has priority over 
the right margin justification. Default 
is false. 

D[n] insert n line-feeds 

E[n] indent n blanks at each new paragraph. 

Default is zero. This only works after 
the definition of the right margin. 

F<T|F> right margin justification. Default is 
false 

H Stop formatting and wait for pressing 

'OPTION' or 'SELECT' to continue. 
'START' is abort formatting. 

Use this command for exchange of the 
fait at a spinwriter e.g. 

I<file> include file. For the file there are 
the same commands like with the 
read/write command. 
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L[n] left margin is n blanks. Default is 

zero. 'The left margin has to be bigger 
or equal the right. 

N<T[n] I F>pagenumbering starting at page n. The 
first pagenumber is not printed. The 
following numbers are printed centered 
at the top of the page. 

0 sets left and right margin as well as 

the automatic line feed to the default 
values. 

P form feed 

R[n] right margin. If n=0 then it is no 
longer printed in the zigzag-mode. 

S[n] n lines per page. Default is 56 

Wlchar] write char directly to the printer. 

ftiis command allows you to send control 
conmands to the printer. For example 
(hex OF) turns the EPSON MX80 to the 
narrow font. 

#[n] define new form- length. Default is. 72 

For US-standard set form-length in the 
beginning of the text to 66. 

§[n] define new form-width. Default is 80 
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APPENDIX I 


ERROR MESSAGES OF THE FORMATTER: 


CIO ERROR DURING PRINT 

An error occurred in the CIO-routine during print 
of text or the BREAK-key has been pressed. 

CIO ERROR DURING INCLUDE 

Something went wrong during the reading of the 
file or the BREAK-key has been pressed. 

LINE TOO LONG 

The formatter reached a line longer than 256 
characters. 

ILLEGAL COMMAND 

An unknown command is in the format-command line. 

ZERO IS NOT ALLOWED 
A zero is at not allowed location. 

T(RUE OR F(ALSE EXPECTED 
The user forgot a T or a F. 

CIO ERROR DURING OPENING FILE 

During the opening of an include-file an error 
occurred. Maybe the file does not exist at all. 

FORMLENGTH LOWER THEN PAGELENGTH 

The formlength never can be smaller than the 

pagelength 

INSPACES GREATER THEN (RIGHTM-LEFTM) 

You tried to indent more than the difference 
between left and right margin. 

LEFTM GREATER THEN RIGTHM 

The left margin is bigger than the right. 
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(RIGHTM-LEFTM) TOO SMALL 

During justification no blank was found in a line. 
Try to seperate a long word. 

LIST ABORT WITH 'START' 

You stopped the printout by pressing the yellow 
START-key. 

'START' DURING HALT 

You stopped the printout by pressing the yellow 
START-key during the H-command. 

After the error-message you can press any key and 
the cursor stays at the location of the error. 


APPENDIX II 


THE USE OF TABS WITH ATEXT 

To print schedules or charts you need a function 
to indent several lines the same number of blanks. 
To do that conveniently there is a TAB- function. 

The TAB-function only works in the unformatted 
print-mode. 

The TAB-function sets the cursor to the next 
predefined loaction. The default value for the 
distance between the single TAB-positions is 9 
blanks. This can be changed with the fuction TAB 
SET (@) in the command-line. 
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APPENDIX III 


EXPLANATION TO THE SPECIAL CHARACTERS 

ESC this character stands for the one time use 
of the ESC- key. 

[..] the characters or numbers between these 
brackets can be left out. Then 1 is 
assumed for the value, except with the 
commands R, L, and E of the formatter. 

[ . . ] 1 means that the contents of the brackets 
can be repeated as often as needed 

<..> the contents of these brackets can not 
be left out 

| this symbol means OR 

F,T these two characters stand for true or 

false. This means you can turn a function 
on or off. 


APPENDIX IV 


PRINTING VIA PORTS OR VIA ELC0MP-RS23 2- INTERFACE 

On the disk with the wordprocessor there are two 
additional files which can be loaded while in DOS. 

If you load the file 'CENTRNX.SYS' you can print 
on a printer with CENTRONIX interface. The signals 
go via gameports 3 and 4 and the ELCOMP interface 
(for details see construction article). (See page 1) 
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If you load the file 'RS232.SYS' you can use the 
ELA30MP-RS232 interface via port 3 (for details see 
construction article) . (See page 9) 

After you loaded one of the two files you get back 
to the editor by using command 'B' of DOS. 

Note that you have to load the files again after 
you pressed the RESET-key. 

The cassete-version of ATEXT does not have the 
features described above. 


APPENDIX V 


ERROR-MESSAGES OF THE EDITOR 

The error-messages of the editor of ATEXT are only 
two characters long and are displayed in the upper 
righthand corner of the screen. 

00 commandline overflow; more than 40 
characters in the commandline 

E? invalid character in commandline 

#? the number in front of a command is 
larger than 255 

CH a string is missing at the command C 
I? no more space in textbuffer 

C? copy-register full 

H? wrong hex-number at command H 

T? TAB-value larger than 9 or smaller than 1 
S? string not found 
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L? something went wrong during execution of 
the L-command. (wrong file or stop during 
printout) 

RW read-/wri te-er ror . (file does not exist 

or error during read-/write- operation) 


APPENDIX VI 


SEMI-AUTOMATIC SEPERATION 

ATEXT has a feature to tell the formatter where a 
word can be seperated. To do so you have to insert 
a CTRL B between the syllables. Then, if it 
becomes necessary, the formatter seperates the 
word there. 

Please note that the counter in the upper lefthand 
corner of the screen counts one character to much, 
because of the additional CTRL B. 
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inserted in front of it. This can be seen, if you 
enter CERL-T. 

To print a letter several times the include- 
command has to be used. The letter has to be on 
disk and should contain a formfeed command at the 
end. Clear the textbuffer (command K in the 
command line) and enter : 

CTRL-L ID: LETTER (RETURN) 

Open the copy register with CTRL-E, move the 
cursor up one line, and close the copy register 
with CTRL-D. Now the copy register contains the 
above command. This command can be inserted now as 
often as needed, using command CTRL-J (insert 
contents of copy register at actual cursor 
position) . 

Place the cursor at the beginning of the text with 
CTRL-L* 

(ESC) LE(ESC) (ESC) 

will now read the file from disk and print it on 
the screen as often as wished. 

(ESC)LP(ESC) (ESC) 

will print it on the printer. 
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ELOOMP PUBLISHING INC. 
53 REDROCK LANE 
POMONA, CA 91766 
(714) 623-8314 


YOUR ORDER N). 


SLSMN. 


TERMS DATE SHIPPED 


Dear customer : 

This is to inform you that ELCOMP has published a new 
book, called 'Games for the ATARI". The book describes 
step by step, how to program your own games. It tells 
you how to create players and missiles and hew to move 
them on the screen. How to create sound, to generate 
special effects, etc. There are many ready to type in 
and run programs listed in the book. Cue program is in 
machine- language . It is listed in assembler language 
and as hex-dunp and is completely commented. The name 
of that program is GUWIGHT. 

Price for the book is $7.95. 


Sincerely yours. 


Linda Schwarz, office manager 


BUSINESS ACCOUNT ; BANK OF AMERICA BANK NUCER 16-8 / 1220 

This letter is written with ATEXT. For information refer to page 84. 
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A SAMPLE SESSION WITH ATEXT-1 


The wordprocessor ATEXT-1 has so many commands and 
features, that it may be a bit confusing for those 
of you with little experience with computers. But 
once you know how to use all the different 
commands you won't want to miss them anymore. 

Here is what you have to enter to get a printout 
like the attached letter (this letter is not a 
standard letter, it is meant only to show 

techniques with the wordprocessor) : 

CTRL-L 0 (RETURN) set default values 

CTEL-L D4 (RETURN) four line fe e d s 

CTRL-L ES6L10 (RETURN) right margin at 66, 

left margin at 10 

CTRL-L CT (RETURN) centering mode 

lines will be printed 
centered, if possible, 
otherwise they are 
printed normal 

ELCOMP PUBLISHING INC. (RETURN) 

CTRL-L (RETURN) a CTRL-L is needed to 

start new lines a 
a RETURN doesn't start 
a new line ! 

53 REDROCK LANE (RETURN) 

CTRL-L (RETURN) 

POMONA, CA 91766 (RETURN) 

CTRL-L (RETURN) 

(714) 623-8314 (RETURN) 
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CTRL-L D5 (RETURN) five line feeds 

CERL-L CF (RETURN) no longer centering 

CTRL-L 0 (RETURN) no margins 

YOUR ORDER NO. (12 blanks) SLSMN. (11 blanks) 
TERMS (12 blanks) DATE SHIPPED (RETURN) 

CTRL-L D5 (RETURN) five line feeds 

CTRL-L L10R66 (RETURN) new margins 


Text 


CERL-L D4 (RETURN) 


enter the text here. 

If one line isn't 
enough, just hit 
RETURN and continue on 
the next line. 
Everything will be 
printed one by one 
later. Only CTRL-L 
causes the start of a 
new line. Lines on the 
screen can be up to 
255 characters long, 
but it is recommended 
to go to the next line 
after about 100 - 150 
characters (see 
counter in the upper 
lefthand corner) . This 
makes editing easier. 
With long words you 
should make 
suggestions for 
division. Insert CTRL- 
B between the 
syllables. For example: 
in ter est ing. 

four line feeds 
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CTRL-L L30 (RETURN) new left margin 

Sincerely yours, (RETURN) 

CERL-L D3 (RETURN) three line feeds 

Linda Schwarz, office manager (RETURN) 

CTRL-L 0 (RETURN) no margins 

CTRL-L D12 (RETURN) twelve line feeds 

BUSINESS ACCOUNT : BANK OF AMERICA (15 blanks) 
BANK NO. 16-8 / 1220 (RETURN) 


It is not necessary to start a new line for each 
formatter command. For example a line could lode 
as follows : 


CTRL-L D5CPO (five line feeds, centering mode off, 
default margins) 


Now we want to save that letter. To do that we 
first have to place the cursor at the beginning of 
the text, which is done with CTRL— W. Then we press 
ESC, to get to the command line at the bottom of 

the screen. A "$" will be displayed there. We want 
to save the letter on disk under the name "LETTER". 
To do that we enter : WD: LETTER (ESC) (ESC) 

Now the text will be saved. After a successful 
save a "#" will be displayed in the command line. 

If you don't have a disk drive, you can save the 
text on cassette with : WC(ESC) (ESC) 


Next we want to print the letter on the screen. To 
do that we first have to leave the command line by 
pressing ESC two times. Then we place the cursor 
at the beginning of the text with CTRL-W. We go to 
the command line again by pressing ESC. There we 
want to call the formatter (L) and send the output 

LE(ESC) (Esq" (device E> • Thus we have to enter : 


86 



To send the output to another device just enter P 
(for a parallel printer) or R (for a seriell 
printer) instead of the E. 

To load the file from disk later we enter : 

(ESC) RD: LETTER (ESC) (ESC) 

To change a word in the text we place the cursor 
at the beginning of the file (CTRL-W) , go to the 
command line (ESC) , and search for the word to be 
changed (command S) . If we want to change the word 
"called" into "named", we proceed as follows : 

We go to the command line (ESC) and there we enter 


Scalled(ESC) (ESC) 

This will place the cursor behind the first w ord 
"called" after the actual cursor position. A CTRL- 
G would move the cursor to the next word "called" 
if there would be one. Now we can delete the word 
"called" with command CTRL-N (delete last word) 
and insert the new word. 

Another way to do that is to use command C 
(change) . Go to the command line (ESC) and enter : 

Ccalled (ESC) named (ESC) (ESC) 

The command in the command line always can be 
repeated with CTRL-G. Then the actual command is 
executed again, effective from the actual cursor 
position on. 

If you want to use the same form of a letter for a 
different text, then you can remove the old text 
by moving the cursor to the beginning of the text 
and deleting all lines you want removed with 
command CTRL-Z. Then you can create space for the 
new text by pressing RETURN several times. If you 
enter the new text later, then terminate the lines 
with CTRL-=, rather than with RETURN, because 
RETURN is already there and the new text will be 
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Order-No. 7042 
Order-No. 7292 


completely assembled $179.00 
KIT $ 49.95 

EPROM-BURNER 
FOR THE 

ATARI 800/400® 

EPRQMBURNER FOR HIE ATARI 800/400. 


With this eprcmbumer you can bum your own EPRQMS.lt 
is possible to burn four different types. The four 
types are the 2532(4k), the 2732(4k),the 2516(2k) and 
the 2716 (2k). Hie burner uses the game ports 1 ,2 and 3. 


1) THE HARDWARE. 


The circuit of the eprcmbumer is shown in FIG. l.The 
data for the burner is exchanged via game port 1 and 2. 
The control signals are provided by game port 3. Hie 
addresses are decoded by two 7 bit counters 4024. The 
physical addresses for the EPROMS are always in the 
range of 0000 to 07FF for 2k and 0000 to 0FFF for 4k. 
This counter is reset by a signal, decoded from PB0 and 
PB1 via the 74LS139. PB2 is used to decide if a 2532, 
or a 2716 has to be burned. 

Not all signals for the different types of EPROMS are 
switched by software.A three pole, double threw switch 
is used to switch between the different types. The 
software tells you when you have to set the switch into 
the correct position. For burning, you need a burning 
voltage of 25 Volts. This voltage is converted fran the 
5 Volts of the game port to 28 Volt by the DCDC 
converter DCP 528. This voltage is limited to 25 Volts 
by two Zener diodes in serie ( ZN 24 and ZN 1 ). Three 
universal NPN transistors are used to switch between 
lew level voltages and the high level of the buminq 
voltage. 
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Fig. 1 
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Fig. 2: Parts Layout 
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FIG. 2 shows the parts layout.lt is reccrnended to use 
sockets for the integrated circuits. Attention !.The 
component side for the integrated circuits is the side 
showing the text EPROMBURNER, but the socket for the 
EPROM is mounted opposite to this component side. ( see 
FIG. 3) The picture of the burner is shown in FIG. 3. 
After assembling the board, the connections to the 
ATARI ‘ are made. Use three female plugs and a flatband 
cable. Last the three pole double throw switch is 
assembled. The wiring of the switch and the connection 
to the board is shown in FIG. 4. 

3) THE SOFTWARE 


The software for the burner is completely written in 
machine code. It canes on a bootable diskette. To load 
the program, insert the disk and REMOVE ALL CARTIDGES. 
Turn on the disk drive and the ATARI. After a short 
moment, you will see the first menue: 



You are asked what type of EPROM you want to bum. After 
typing the appropriate character, you get the message 
to set the switch to the correct position and insert 
the EPROM. This is shown in the following example: 
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Then, pressing the space bar, you see the main menue: 



First we want to R)EAD an EPROM. Type R and then the 
addresses FROM and TO. The physical addresses of the 
EPROM are always in range between 0000 and OFFF. You 
can read the whole EPROM or only a part of it. Next you 
have to type the address INTO which the content of the 
EPROM is read. All adresses which are not used by the 

system or the burner software ( A800 to AFFF ) are 
accessible. By typing Y after the question OK (Y/N), 
the program is loaded. There is a very important key, 
the X key. This key cancels the input and leads back 
into the main menue. An example of reading an EPROM is 
shewn in the next figure: 
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To verify that the content of the RAM is idetical to 
the content of the EPROM, type V. After specif ing the 
adresses for the EPROM and the RAM and typing Y, the 
contents are ccnpared. If there are any differences, 
you get an error message, such as the following: 
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You may then make a memory dump. Type M for M) EMORY, 
either R for R)AM or E for E ) PROM , and the address 
range. There is a slight difference in memory dumps. 
With the memory dump of RAM, the bytes are printed, if 
it is possible, as ASCII characters. 


Burning an EPROM begins by testing as to whether or not 
the EPROM, is erased in the address range you want to 
burn. Type E and the address range. You will get the 
message EPROM ERASED when the assigned address range 
has been erased, or the message EPROM NOT ERASED IN 
CELL NNN. 

For writing the EPRCM, type W, the address range in RAM, 
and the starting address in EPROM. After hitting Y, you 
have to wait two minutes for burning 2k and four 
minutes for burning 4k. Don't get angry, the program 
will stop. After burning one cell the program does an 
automatic verify. If there is a difference you recieve 
the error message EPROM NOT PROGRAMMED IN CELL NNN and 
the burning steps. Otherwise if all goes well the 
message EPROM PROGRAMMED is printed. 

For changing the type of EPROM you want to burn, type S. 
The first rnenue is shown and you can begin a new 
burning procedure. 


4) PARTS LIST. 



IC1 

74LS139 


IC2 , IC3 

4024 


IC4 

4016 


IC5 

4049 


T1,T2,T3 

UNIVERSAL NPN TRANSISTOR 
30V,0.3W (2N 3390 % 2N3399 ) 

Rl 

470 K 

RESISTOR 

R2,R3 

100 K 

RESISTOR 

R4,R5 

33 K 

RESISTOR 

Z1 

1 V 

ZENER DIODE 

Z2 

24 V 

ZENER DIODE 

Ml 

DCP528 

DC DC CONVERTER 

ELPAC POWER SYSTEMS 

C1,C2 

100 NF 

CAPACITOR 
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C3 

SI 

1 

3 

2 

3 


10 MF TANTAL CAPACITOR 
3P2T SWITCH 
24 PIN TEXTOOL SOCKET 
14 PIN IC SOCKET 
16 PIN IC SOCKET 

FEMALE PLUGS, ATARI GAME CONNECTORS 


5) 

1 . 

* 

2 . 

3. 

* 

* 

4. 

5. 

* 

6 . 

7. 

8 . 

* 

* 

9. 

* 

* 

10 . 
11 . 

12 . 

* 


STEP BY STEP ASSEMBLING. 

Insert and solder sockets. 

Component side shows the text EPROMBURNER. 
Insert and solder resistors. 

Insert and solder Zener diodes. 

The anodeS are closest to the to -the 
transistors. 

Insert and solder transistors. 

Insert and solder capacitors. 

Hie + pole of the tantal is marked. 

Mount the DCDC converter module. 

Turn the board to the soldering side. 

Insert from this side the TEXTOOL socket. 

The knob should be in the 

upper right corner. Solder the socket. 

Make the connections on the switch. (FIG. 4) 
Connect switch and board via 
a 7 lead flatband cable. 

Connect the plugs to the board. (FIG. 5) 
Insert the integrated circuits. (FIG. 2) 

Turn off the ATARI. Insert the plugs. 

Insert the diskette and turn on the ATARI. 



The burner software also allows you a memory dump (RAM or EPROM). 
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ATEXT-1 WRITERS 


REFERENCE CARD 

cH means CTRL H; press both the CTRL 
and the character key. 

ERASING 


ONE CHARACTER 

< — CH 

a 

i 

V 

ONE WORD 

< — CN 


ONE LINE 

< — CX 

cZ — > 

UNTIL FORMAT COMMAND 

< CV 

CC — > 

MOVING THE CURSOR 

ONE CHARACTER 

< — c+ 

c* — > 

ONE WORD 

< — cO 

CP — > 

ONE LINE 

< — c - 

A 

1 

It 

o 

BEGIN OF TEXT 

< — CW 


END OF TEXT 


CS— > 

FORWARD NEXT TAB 


0 

W 

1 

V 

FORWARD NEXT 

FORMAT COMMAND 


CA — > 



THE COPY BUFFER 


OPENING CE 
CLOSING CD 
INSERTING GJ 
ERASING CK 


Entering text into copy buffer by 
cursor movement or erasing. 


THE COMMAND LINE 


OPENING ESC 
CLOSING ESC 
EXECUTING ESC 
REPEATING cG 


ESC means the ESC key. All commands 
are executed from the current cursor 
position towards the end of the text. 

S EARCH ESC SAB ESC ESC 
searches for string AB. 

C HANGE 

ESC CAB ESC BA ESC ESC 
changes string AB to BA. 

E RASE 

ESC EAB ESC ESC 

erases the next string AS. 

I NSERT 

ESC I HELLO ESC ESC 

inserts the string HELLO at the 
current cursor position. 



THE COMMAND LINE cntd. 

@n n=l. .9 SETTAB 

ESC §5 ESC ESC 
sets TAB to 5. 

H EX Inserts control characters. 

ESC H2F ESC ESC 

inserts the byte 2F into the text. 
This command is used to send 
control characters to the printer. 
L 1ST Sends text to the specified device. 
ESC L ESC ESC first 38th character 

to screen 

ESC L 2ESC ESC from 38th charac- 
ter to EOL to 
screen 

ESC LE: ESC ESC To screen 
ESC LP: ESC ESC To parallel printer 
ESC LR: ESC ESC 

To ELCOMP RS232 interface 
ESC LD:NAME ESC ESC 
To disc as file NAME. No format 
commands are saved on disk. 

R EAD Reads text from the 
specified device. 

ESC RDjNAME ESC ESC 

Reads file NAME from disk 

ESC RC: ESC ESC 

Reads next file fran cassette 

W RITE Writes to specified device 

ESC WD:NAME ESC ESC 
Writes file NAME to disk 
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THE COMMAND LINE cntd 


ESC VC: ESC ESC 

Writes text to the cassette 

Attention! All writing starts at 
the current cursor position. 

A file is read in at the current 
cursor position. 

K ill 

ESC K ESC ESC 
erases the text buffer 

D ELETE 

ESC D ESC D ESC ESC 

deletes two characters backward 

T 

ESC T ESC ESC 
erases the next line 

F 

ESC F ESC ESC 

moves the cursor one character 
foreward 

J 

ESC J ESC ESC 

moves the cursor to the next 
format command 

G 

ESC G ESC ESC 

inserts the copy buffer at cusor 
position 



M 


ESC M ESC ESC 
exit to DOS 

Restart from DOS: 
K Colds tart 

E Warms tart 


THE FORMAT COMMANDS 

Every format command begins in a new 
line, starts with cL and ends with 
the RETURN key. 

Ln sets left margin to n 

Rn sets right margin to n 
Dn insert n. linefeeds 

Example: 

CLL10R66D2 sets left margin to 10, 
right margin to 66 and inserts 2 
linefeeds. 

En insert n blanks at each new 

paragraph. 

Sn sets lines per page. 

#n sets form length 

@n sets form width 

The following commands must be set to 
T RUE or F ASLSE. 

A automatic line feed after 

each paragraph. 

C center next lines 

F right margin justification 

N n page numbering starts with n 



KUO 


OTHER COMMANDS: 


Wc 

printer 

INAME 


write control characters to 

include file NAME 
sets the default values 
formfeed 

stop formatting (printing) 
and wait for pressing 
"OPTION" or "SELECT" to 
continue . 



Ordw-No. 7214 
Order-No. 7215 


cassette version 
disk version 


$19.95 

$24.95 


INVENTORY CONTROL 


This inventory control program is for ATARI 400/800. The number 
of items this program can handle depends on the memory size of 
your computer. 

This program comes up with the menu on which you select the various 
options by pressing one of the number keys. There is no need to 
press the RETURN key. 

1 & 6: Read or Store Data 


You can read or store data on disk or cassette. When this 
routine ends, the machine displays the menu again. 

2: Define the Items 


You get a list printed on the screen on which you can put your 
information. Each entry has the following information: 


Inventory number 
Manufacturer 
Recorder level 
Present level 
Code number 
Description 


(IN-NO) 

(MANUF) 

(RECL) 

(PL) 

(COD) 

(DESCRIPT) 


Into each entry, you can record alphanumeric characters except 
the X key. It is not allowed, because it is the exit function. 
The input of the recorder level and the present level must be 
numeric . 


3: Entry Editing 

You can make changes using the cursor functions. A SHIFT DELETE, 
deletes the article. 

4 : Inventory Maintenance 

In this mode you can keep track of the merchandise sold and 
received. The changes are displayed as soon as they are made. 

5 : Report 

You can get a printout of all items in a various description, 
xike recorder level, and item number etc. 
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USING THE KEYBOARD 


You can use the cursor functions of the ATARI as normal. 

CTRL* — - and CTRL i moves the cursor to the right or to the 

left without changing the text. During option 3, the cursor 
can also be moved up and down. 

TAB key sets the cursor to the next row. RETURN sets the 
cursor in the last free field of the entry (waiting position). 
X-key leaves the current option. 

Hitting the return key while in waiting position leads to the 
next entry. SHIFT DELETE erases the line. 'During option 3, 
this line must not be rewritten. 

The ESC key moves the next block of information into the 
screen. Special hint: Erroneous input is as far as possible 
ignored. But don’t use the CAPS LOWR and the inverse key. 


104 



MAILING LIST FOR THE ATARI - 800 


Ordw-No. 7212 cMwtts vtreion 819.95 
Ordcr-No. 7213 disk vartion 824.95 

Program Description: 

The following mailing list program can handle as many addresses 
as you want. Fifty addresses each are put .together to one 
block and then stored on disk. The addresses can be printed 
on the screen of your ATARI or printer as lists or as labels. 

(The labels are formatted two in a row) beside one another. To 
run this mailing list, the user needs 16K byte of usable RAM. 
Please note that there is also space for the DOS available. 

How to Start the Program: 

Insert the disk into drive one and type in, RUN"D : ADRESS" Now 
the program automaticly ccrnies up with a menu on the screen. 

Now you can make your selection of the appropriate function. 

Input : 

For your input of data, you will get a form you can easily fill 
out. Name, street, state, zip, city, phone number, and also 
a short note can be filled in. This program allows only a 
certain amount of characters for each single entry. (Name: 25 char, 
street : 25 char., state:3 char., zip:8 char., city:20 char., 
phone: 15 char., note: 25 char.). If you want to put in more then 
the characters allowed by the program, the cursor is locked. 

To make changes and corrections, you can use edit functions 
already built in BASIC. If you type RETURN, the current line 
will be stored in the computer. Lower case characters are 
possible. But when the menu appears, the computer switches 
to the upper case mode. With you can exit this mode again... 
NOTE: You cannot use the character * for input in your address 
text. 

If you type space instead of a name, you can not access to that 
later. Therefore you also cannot delete it later. "Be carefull 
with the space bar" I 

Changing addresses: 

The program asks for the name you want to change. You type 
this name in and hit RETURN. If the name is in the computer, 
it will appear on the screen. If not there will be an error 
message. If the name is in the computer, you can make changes 
like, under function 1, INPUT in the menu described before. 

With RETURN you can go to the next line for input. You have to 
go to each line with the cursor, even to the note line to 
complete the changing process. If you don't do so, the change 
will not be accepted. 

Delete Address: 

After you select this part of the menu, you will be asked for 
the name you want to delete. Now you type in that name and 
"Y" (yes) for delete. All other input will keep the name in 
the mailing list. 
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Output Data: 

Data output can be done in different ways. An address list, 
single addresses, addresses from a certain city, or a certain 
parameter can be outputed to the screen or to the printer. The 
print out could be a listing (address list, or on lables, two 
across). Though the lable output prints two lables across, 
sometimes the program asks for another name. If there are nor 
other or second name, you have to type in' a dummy address. 

How to Open a File: 

Before doing anything with this program, you have to open a 
file. The computer will remind you in case you forget i.t. 

Eight characters are allowed for file names. (Capital letters 
only - no graphics). One file allows you to store 50 addresses. 
The menu shows you the name of the file, which is accessed or 
handled at that time. The menu also tells you how many addresses 
can still be stored. 

How to Access a File: 

This command allows you to work with a file already filled with 
names and so on. 

Store Data in a File: 

To store data before switching off the computer or going to 
another file, you have to save the address information on disk. 
Please check if there is any room left on the diskette before 
you attempt to save a file. 

NOTE: This program is protected against any wrong input. If 
you hit the asterik "*" you leave the current mode and 
return to the menu. 

The BREAK-KEY is disabled. 


C 1982 Copyright by ELCOMP Publishing, Inc. 
All rights reserved 


ATARI is a trademark of ATARI ,Inc. a Warner Communications Co. 


Elcomp Publishing, Inc. 
53 Redrock Lane 
Pomona, CA 91766 
(714) 623-8314 
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MAILING LIST 


The program can control as many addresses as you want. Fifty 
addresses at a time are put together to a data-file and stored. 
The menu at the beginning gives you the following functions: 

1 . ) Enter data : 

You get a list with name, street, state, zip code, city, 
telephone, note, and can enter the matching data. The 
length of the input is limited. If you try to enter too 
much, the cursor stops. For corrections, you can use 
the normal control functions. After you hit RETURN the 
line is stored. If you enter you will get back to 
the menu . 

2 . ) Change data : 

The program will ask you for the name to be changed. If 
the name exists, the address will be displayed and you 
can continue like under number one. If you hit RETURN, 
you go to the next line. You have to enter all lines 1 

3. ) Delete addresses: 

The program will ask you for the name to be deleted. If 
you enter "Y" the address will be deleted. 

4 . ) Output data : 

You have the following options here: Total list, single 
names, all addresses of one town, search for special note. 
You can direct the output to the screen or to the printer. 
On the printer you can get a normal printout or labels 
(two addresses in a line) . 

5. ) Create a file: 

Before you enter datas you have to name a file. In one 
file there is space for fifty addresses. 

6 . ) Read data : 

This command reads data out of existing files. 

7. ) Store data: 

This command is used to save datas. 


This program requires the BASIC cartridge in the left slot. 


107 



Order-No. 7201 
Order-No. 7200 


cassette version 
disk version 


529.95 

539.95 


Invoice Writer for 
ATARI-400/800® 


Invoice Writer for ATARI-400/800 

The ATARI-400/800 are powerful consumer computers for games 
and education. But the very small business man also can use them 
for cutting costs. 

The invoice program from ELCOMP is very simple but does a 
great job in writing your invoices. You need the following hard- 
ware: 

1 . ATAR I 400 or 800 with at least 1 6k of RAM 

2. ATARI BASIC in ROM 

3. interface module ATARI 850 

4. printer with serial (RS 23?) interface 

This program writes invoices for the very small business. The in- 
voice is written onto a special form that is supplied in limited 
quantities with the program. An address label is included in this 
form. 

Program description: 

Lines 222, 224, 226 and lines 1000, 1002, 1004 contain the 
address of your company. You can replace these three strings by 
your company' s address. 

Lines 360, 370, 380 calculate the discount. SI is the number of 
products sold to that customer. If SI is 1....5, then discount is 
25%, if SI is G....10, then discount is 33 %, if SI is 11 or more, 
then discount is 40 %. You can change these numbers easily e.g., 
if you want 33% discount for 6... .20 products and 50% for more 
than 20 products change line 370 to: 
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IF SI >5) AND (SI < 21) THEN D=0.33 
and line 380 to: 

IF SI > 20 THEN D=0.5 

Lines' 405, 410, 420, 430, 440 calculate the costs for shipping: 

If SI is 1....14, shipping costs (V) is S2.-, if SI is 15.. .29, then 
V=S 1.25, if SI is 30. ...39, then V=S 1.50, if SI is 50....99, then 
V= S2.— , if SI is 100 or more, then V= 82.50. This can also be 
changed, if needed. 

At the end of the program (lines 1500...) you can enter your pro- 
duct file. Every record of this file is written in a DATA-statement 
and contains: 

1 . order number 

2. description (up to 26 characters) 

3. price 

e.g. 1600 DATA 1 17,50 BLANK CASSETTES C10,19.80 

Important: The last statement has to contain 0,0,0 (end of file 
marker). 

Program handling: 

Start the program with RUN. The first thing you have to enter is 
the TAX RATE, next is the DATA (you have to enter it only once 
at the beginning), then FIRST INVOICE NUMBER (will be in- 
cremented at every invoice), then ACCOUNT NUMBER, then 
DISCOUNT, yes or no, if you enter 1 for yes, discount is calcu- 
lated depending on the number of products sold, if you enter 0 for 
no, discount is 0%. 

The next you have to enter is SHIPPING, here you have a choice 
of automatic calculation of shipping costs, or you can enter a cer- 
tain amount by hand. 

Next thing to enter is CUSTOMERS ORDER NUMBER and his 
address, next you can select the way of payment and the way of 
transportation. Then SHIP TO SAME ADDRESS will appear, you 
can enter Y or another address. After that the head of the invoice 
will be printed. 
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The next thing you have to enter is the first item number. If the 
program reads the end of the file, you will get ITEM NUMBER 
NOT FOUND and you can enter another number. 

When you want to finish the invoice, enter 0 and the program will 
finish that invoice. 

Now you can enter the next account number and so on. 
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GUNFIGHT 


Order No. 7207 $19.95 


GUNFIGHT is for two players. Each player uses one joystick. Plug 
the joystick in port 1 and 2. Port 1 refers to the left player, port 2 
to the right player. 

GUNFIGHT starts with the Copyright-statement. Press one of the 
two trigger buttons and the playfield appears. Now you can move 
the cowboys. 

The Game 

You shoot by pressing the trigger. Each player has 10 cowboys 
and each cowboy 50 bullets. By holding the button pressed the 
gun keeps firing until the cowboy has no more bullets. There are 
2 ways to be killed: Your opponent can shoot you or you can 
drown in the sea. 

After each round the game waits for you to press the trigger. The 
game-status appears. It shows you the actual number of cowboys 
and bullets. When you press the trigger the game goes on with the 
next round. The winner of the game will be shown after you press 
the trigger, button. Pressing the trigger the game starts again with 
the Copyright-statement. 

The Sea 

Don' t touch this blue area because you will be drowned. 

If you run out of bullets: 

If you don* t have any bullets you can only flee and hope that the 
enemy will touch the sea. 
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You can hide your cowboy behind any one of the three rocks. 
But when your opponent also hides behind a rock, he can shoot 
you as long as his gun is behind the rock. 


The program starts at hex 1000. To key the program in, you need 
a machine language monitor or the ATARI® Editor/Assembler 
cartridge. 

The starting address of the program GUNFIGHT is 1016 hex. 

Start with GOTO 1016. Skip the location between 175F and 1F98. 

1 F98 = Start of display list 

2000 = End of display list and beginning of the background. 

Type in everything like it is. (Use the fill-command of 
a machine language monitor). 

2FFF End of background 


If you bought the program on cassette, you can load the 
program as follows: 

1 .Switch the computer off 
2.Switch the TV an cassette recorder on 

3. Press the START button 

4. Hold the START button down 

5. Switch the computer on 

6. Release the START button 

7. Press PLAY on the recorder after the beep 

8. Press RETURN 
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KNAUS-OGINO 

Birthcontrol 


KNAUS OGINO 


For thousands of years now man thinks about birth- 
control. Hie present mean, the 'pill' was developed 
in the 1950s. All kinds of ways of birth-control 
have been developed, from droppings of a crocodile 
as a pessar (1850 B. C.) to abstinence (1st book of 
Mose, Chapter 38, verse 9) . 

A much better method is the one developed in 1930 
by two independent doctors. H. Knaus (Austria) and 
D. Ogino (Japan) acquired this technique on the 
basis of the female cycle. A summary can be found 
in the Family Encyclic by pope Pius XI. (1931) . 
There it says : The first fertile day can be 
calculated by subtracting 19 days from the shortest 
cycle known. The last fertile day can be calculated 
by subtracting 10 days from the number of days of 
the longest cycle known by that particular woman. 

Since this sounds like an estimate this technique 
didn't disseminate very well. Nowadays we know that 
a fertilization is possible only a short time after 
the expulsion of the ovum. With a healthy woman 
this time is. about six hours. We also know, since 
Knaus and Ogino, that the expulsion of the ovum 
happens pretty exactly 14 days before the next 
menstruation. Since the life-span of the sperm is 
about two days the time, where a fertilization can 
happen is elongated by that period. 

If we use the results of the two scientists 
together with statistics and error-mathematics we 
are able to make more accurate statements. 
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The only moment known is the start of the 
menstruation (date and time of day) . We subtract 14 
days from that moment and get the expulsion of the 
ovum. Plus one and minus three days therefrom tells 
the time of abstinence. If we add 266 days to the 
time of the expulsion of the ovum we get the date 
of birth (in case of a fertilization) . 

The program which comes with this article does all 
Uie calculations and also saves all previous dates. 
Every month you load the old dates and add the new 
one. The reliability becomes better and better with 
every new date. 

Finally a note : 

All informations are without any guarantee i 


Order-No. 7222 $29.95 
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PRODUCTS FOR ATARI* 400/800 FROM ELCOHf 


BOOKS: 


ATARI BASIC - Learning by using 

An excellent book for the beginner. Many short programs and learning 
exercises. All important features of the ATARI computers are described 
(screen drawings, special sounds, keys, paddles, joysticks, 
specialized screen routines, graphics, sound applications, peeks, 
pokes, and special stuff). Also suggestions are made that challenge 
you to change and write program routines. „ _ 

7 Order ft 164 $7.95 


GAMES for the ATARI Computer 

This book describes advanced programming techniques like 
player-missile-graphics and use of the hardware-registers. Contains 
many ready to run programs in BASIC and one called GUNFIGHT in 
machine- language. . 

Order # 162 $7.95 


SOFTWARE IN BASIC: 

Invoice Writing for Small Business 

This program makes writing invoices easy. Store your products in DATA 
statements with order-number, description, and price. The program 
later retrives the description and price matching to the entered 
order-number. The shipping cost and the discount may be calculated 
automatically depending on the quantity ordered or entered manually. 
The description to the program tells you how to change the program and 
adapt it to your own needs. Comes with a couple of invoice forms to 
write your first invoices onto it. „ 

Order ft 7201 cassette version $29.95 
Order it 7200 disk version $39.95 

Mailing List 

This menu driven program allows the small business man to keep track 
of vendors and customers. You can search for a name or address of a 
certain town or for an address with a certain note. 50 addresses are 
put into one file. „ , 

Order # 7212 cassette version $19.95 

Order if 7213 disk version $24.95 

Inventory Control 

This program is menu driven. It gives you the following options: 
read/store data, define items, entry editing, inventory maintenance 
(incoming-outgoing), reports. The products are stored with inventory 
number, manufacturer, recorder level, present level, code numbdx. 


Order # 
Order f 


7214 cassette version 

7215 disk version 


description. 

Programs from Book ft 164 
The programs from book no. 164 

Game Package 

Games on cassette. (Bomber, tennis, smart, cannon fodder, 

Order ft 


cassette. (Book included) 

Order If 7100 


$19.95 

$24.95 


$29.00 


etc). 

7216 


$9.95 


SOFTWARE IN MACHINE LANGUAGE: 

ATMONA-1 

This is a machine language monitor that provides you with the most 
important commands for programming in machine-language. Disassemble, 
dump (hex and ASCII), change memory location, block transfer, fill 
memory block, save and load machine-language programs, start programs. 
Printer option via three different interfaces. 

Order If 7022 cassette version $19.95 
Order it 7023 disk version $24.95 

Order it 7024 cartridge version $59. 00 

ATMONA-2 

This is a tracer (debugger) that lets you explore the ATARI RAM/ROM 
area. You can stop at previously selected address, opcode, or operand. 
Also very valuable in understanding the microprocessor. At each stop, 
all registers of the CPU may be changed. Includes ATMONA-1. 

Order ft 7049 cassette version $49.95 
Order ft 7050 disk version $54.00 


115 



ATMAS 


Macro-Assembler for ATARI-800/48k. One of the most powerful editor 
of S s!!nir» S ™!? th S mark | t * Versatile editor with scrolling. Up to 17k 
c~°2 e ’ Ve 5 y fas £> translates 5k source-code in about 5 
ATMONA-i) S ° UrCe COde can be saved on disk or cassette. (Includes 


ATAS 

Same as ATMAS but without 
ATEXT-1 



macro-capability. Cassette-based. 

Order # 7098 32k RAM $49.95 
Order # 7998 48k RAM $49.95 


This wordprocessor is an excellent buy for your 
screen oriented editing, scrolling, string search 
and right margin justification. Over 30 commands, 
disk or cassette. 


money. It features 
(even nested), left 
Text can be saved on 


GUNFIGHT 


Order t 7210 
Order f 7216 
Order # 7217 


cassette version 
disk version 
cartridge version 


$29.95 

$34.95 

$69.00 


This game (8k machine-language) needs two joy 
sound. Two cowboys fight against each other oth 
cassette. 


sticks. Animation and 
er. Comes on a bootable 


Order t 7207 $19.95 


HARDWARE: 

PRINTER INTERFACE 

This construction article comes with printed 
software. You can use the EPSON printer without 
interface. (Works with gameports 3 and 4). 

EPROM BURNER (2516 or 2532 EPROMs) 

Works with gameports. No additional 
completely assembled and with software. 


EPROM BOARD (CARTRIDGE) 

k EPROMS (2532). 


Holds two 4k 


circuit board and 
the ATARI printer 

Order # 7211 $19.95 

power supply needed. Comes 

Order t 7042 $249.00 


ELCOMP Publishing Inc., 
Pomona CA 91766, Phone: 


Order # 7043 $29.95 


53 Redrock Lane 
(714) 623-8314 


Payment: check, money order, VISA, MASTERCHARGE , Eurocheck. 

* ATARI f fs m a °^»< d h a ! ,. ad a i5% ,. shipping. CA residents add 6.5X tax 
ATARI is a registered trademark of Atari Inc. 
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NOTES 



NOTES 



NOTES 



NOTES 




SOFTWARE IN BASIC FOR ATARI 


Invoke Writing for Small Business 

This program makes writing invoices easy. Store your 
products in DATA statements with order -number, 
description, and price. The program later retrives the 
description and price matching to the entered order- 
number. The shipping cost and the discount may be 
calculated automatically depending on the quantity 
ordered or entered manually. The description to the 
program tells you how to change the program and 
adapt it to your own needs. Comes with a couple of 
invoice forms to write your first invoices on to it. 
Order #7201 cassette version *29.95 

Order #7200 disk version *39.95 

Mailing List 

This menu driven program allows the small business 
man to keep track of vendors and customers. You can 
search for a name or address of a certain town or for 
an address with a certain note. 50 addresses are put 
into one file. 

Order #7212 cassette version *19.95 

Order #7213 disk version *24.95 

Inventory Control 

This program is menu driven. It gives you the 
following options: read/store data, define items, 
entry editing, inventory maintenance (incoming- 
outgoing), reports. The products are stored with 
inventory number, manufacturer, reorder level, 
present level, code number, description. 

Order #7214 cassette version *19.95 

Order #7215 disk version *24.95 

Programs from Book # 164 

The programs from book no. 164 on cassette. (Book 
included) 

Order #7100 *29.00 

Game Package 


Games on cassette. (Bomber, tennis, smart, cannon 
fodder, etc.) 

Order #7216 *9.95 



Care and Feeding of the Commodore PET 
Eight chapters exploring PET hardware. Includes 
repair and interfacing information. Programming 
tricks and schematics. 

Order #150 *9.95 



Pjyment check, money order, VISA, MASTER- 
CHARGE, Euroscheck. 

Quiets horn outside USA. add 15 - shipping CA 
residents add 6 5". tax 

"ATARI is a registered trademark of ATARI Inc. 
"VIC-20 is a registered trademark of Commodore 


ELCOMP PUBLISHING. INC 
53 Redrock Lane 
Pomona, CA 91766 
Phone: (714) 623 8314 


Books 


Software 

for 

ATARI 

VIC-20 

0SI 

SINCLAIR 

TIMEX 


SOFTWARE IN MACHINE LANGUAGE for ATARI 
ATMONA-1 

This is a machine language monitor that provides you 
with the most important commands for programming 
in machine-language. Disassemble, dump (hex and 
ASCII), change memory location, block transfer, fill 
memory block, save and load machine-language pro- 
grams, start programs. Printer option via three 
different interfaces. 

Order #7022 cassette version *19.95 

Order #7023 disk version *24.95 

Order #7024 cartridge version *59.00 

ATMONA-2 

This is a tracer (debugger) that lets you explore the 
ATARI RAM/ROM area. You can stop at previously 
selected address, opcode, or operand. Also very 
valuable in understanding the microprocessor. At 
each stop, all registers of the CPU may be changed. 
Includes ATMONA-1 . 

Order #7049 cassette version *49.95 

Order #7050 disk version *54.00 

ATMAS 

Macro-Assembler for ATARI-800/48k. One of the 
most powerful editor assemblers on the market. 
Versatile editor with scrolling. Up to 17k of source- 
Code. Very fast, translates 5k source-code in about 5 
seconds. Source code can be saved on disk or cassette. 
(Includes ATMONA-1) 

Order #7099 disk version *89.00 

Order #7999 cartridge version *129.00 

ATAS 

Same as ATMAS but without macro-capability. 
Cassette-based. 

Order #7098 32k RAM *49.95 

Order #7998 48k RAM *49.95 

ATEXT-1 

This wordprocessor is an excellent buy for your 
money. It features screen oriented editing, scrolling, 
string search (even nested), left and right margin 
justification. Over 30 commands. Text can be saved 
on disk or cassette. 

Order #7210 cassette version *29.95 

Order #7216 disk version *34.95 

Order #7217 cartridge version *69.00 

GUNFIGHT 

This game (8k machine-language) needs two joysticks. 
Animation and sound. Two cowboys fight against 
each other. Comes on a bootable cassette. 

Order #7207 *19.95 


FORTH for the ATARI 





ATARI, VIC-20, Sinclair, Timex and OSI 


New - for your ATARI 400/800 
Astrology and Biorythm for ATARI (cass. or disk). 
Order #7223 829.95 

Birth control with the ATARI (Knaus Ogino) 

Order #7222 cass, or disk *29.95 

Books + Software for VIC-20 (requires 3k RAM Exp.) 
#4870 Wordprocessor for VIC-20, 8k RAM *19.95 
#4883 Mailing List for VIC-20, 16k RAM 814.95 
#141 Tricksfor VICs -The VICstory Progr. 89.95 


#4880 TIC TAC VIC 89^95 

#4881 GAMEPACK I (3 Games) 814.95 

#4885 Dual Joystick Instruction 89.95 

INPUT/OUTPUT Programming with your VIC 
Order #4886 89 .95 

#4896 Miniassembler for VIC-20 819.95 

#4881 Tennis, Squash, Break 89.95 

#4894 Runfill for VIC 89.95 


Universal Experimenter Board for the VIC-20 
(Save money with this great board). This board 
plugs right into the expansion slot of the VIC-20. 
The board contains a large prototyping area for your 
own circuit design and expansion. The construction 
article shows you how to build y.-.ur own 3k RAM 


expander and ROM-board. 

Order #4844 *18.95 

Software for SINCLAIR ZX-81 and TIMEX 1000 
#2399 Machine Language Monitor 89.95 

#2398 Mailing List 819.95 

Programming in BASIC and machine language with 
the ZX-81 (82) or TIMEX 1000. 

Order #140 (book) 89.95 

Books for OSI 

#157 The First Book of Ohio 87.95 

#158 The Second Book of Ohio 87.95 

#159 The Third Book of Ohio 87.95 

#160 The Fourth Book of Ohio 87.95 

#161 The Fifth Book of Ohio 87.95 

# 151 8K Microsoft BASIC Ref. Man. 89.95 

#152 Expansion Handbook for 6502 and 6802 89.95 

# 1 53 Microcomputer Appl. Notes 89.95 

Complex Sound Genaration 

New revised applications manual for the Texas 
Instruments SN 76477 Complex Sound Generator. 
Order # 154 *6.95 

Small Business Programs Order # 1 56 
Complete listings for the business user. Inventory, 
Invoice Writing, Mailing List and much more. Intro- 
duction to Business Applications. >14.90 j 








HOFACK 

HOKACK 

HOFACK 

HOFACK 

HOFACK 

HOFACK 

HOFACK 

HOFACK 


















